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MTR0DUCR0 


A rapida popularizapao dos micro computadores conduziu uma grande 
parcela de leigos ao fascinante mundo da informStica. A maioria deles tomou 
contato com o micro externamente como usu^rio, aprofundando-se no estudo 
do "software". 

Uma minoria, porem, quer entender as "entranhas" de seu computador, 
aborda-lo do ponto de vista do "hardware". 

O micro computador 6 urn c^rebro que le e escreve: dot^lo de olhos, 
brapos, ouvidos, lig^-lo ao mundo externo £ fornecer urn corpo a uma mente. 

Esta possiblidade fascinante nos convenceu a editar esta obra pioneira 
de Bernhard Schdn, para divuigar as enormes (e muitas vezes insuspeitas) 
possibllidades que seu pequeno micro esconde. 

Pierluigi Piazzi 
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Tenho certeza, meu caro leitor, que voce 6 ou sera mais um dos usuarios 
de microcomputadores, que se preocupa com os recursos que o micro ofe- 
rece. Mesmo nao pondo em pratica todos os projetos deste livro, voce dife- 
rencia-se da grande maioria de usuSrios, que se limita apenas em rodar progra- 
mas ja prontos nos seus computadores. 

Na verdade existem, em princfpio, tres tipos de usuSrios: 

Usuario A — ele compra e troca programas desenvolvidos por terceiros, 
$em entender o que se passa dentro do computador. Para ele, o seu micro 
nao passa de uma caixa preta, que serve somente para rodar programas pron¬ 
tos. 

Usudrio B — este ja se preocupa com as linguagens de programagao exis- 
tentes, geralmente o BASIC e o ASSEMBLY, e comega a desenvolver seus 
proprios programas, especfficos para suas necessidades. Este usuario sabe 
que o unico limite na programagao (e com isto a capacidade do micro de rea- 
lizar as tarefas mais diversificadas) i a criatividade do pr6prio programador. 
Na pratica £ eie quern domina o computador, enquanto que no caso do usuS- 
rio A, 6 o computador quern o domina, 

Usu3rio C — estes sao pessoas como voce, que querem abrir a barreira 
entre o microcomputador e o mundo externo, ultrapassando os limites tra* 
gados pelas impressoras, monitores e gravadores, 

Normalmente, o usuario C ja passou a sequencia do tipo A e B,e nao 
se satisfaz com o mundo de programagao — seja por necessidade, estudo ou 
mera curiosidade. 

0 objetivo deste livro 6 demonstrar como e simples acessar o mundo 
externo, quais sao os meios, bem como a apresentagao de alguns projetos 
com suas respectivas rotinas de programagao. 

Este livro, em princfpio, 6 dedicado aos usudrios dos micros ZX81, 
RINGO R-470, TK82, TK83, TK85, NE-Z8000, CP200 e AS1000, mas, com 
pequenas alteragoes, os mesmos projetos tamb^m podem ser acoplados aos 
micros TK2000, linha APPLE, TRS 80, COMMODORE e outros. 



UMA PALAVRA PARA OS USUARIOS DE MICROS 
NAO COMPATfVEIS COM O SINCLAIR 


Como ja foi mencionado na introdupao, apenas pequenas alterapoes 
fazem-se necessarias para acoplar os projetos deste livro ao seu computador. 

A hardware de todos os projetos 6 completamente compativel, com 
excepao do circuito basico, que foi projetado para os micros TK85 e compa- 
tiveis. A diferenpa principal consiste na Srea de trabalho, pois nos micros 
TK85, este circuito trabalha na drea de memoria entre 8192 e 8195 inclu¬ 
sive. Provavelmente, no seu micro, estes enderepos estao sendo usados por uma 
memoria, impedindo assim o funcionamento do circuito basico. Neste caso, 
tera de escolher uma outra $rea que nao esteja ocupada. Como ver3 nos capf- 
tulos seguintes, a selepao do enderepo de funcionamento 6 feita por um mul- 
tlplexador, cujas entradas devem ser alteradas de acordo com seu computa¬ 
dor. 0 restante do circuito basico permanece inalterado. 

No que se refere aos software, acredito que as rotinas escritas em BASIC 
facilmente podem ser traduzidas para o BASIC do seu micro. As rotinas 
ASSEMBLY foram escritas para a CPU 280, e no final deste livro, todas as 
rotinas empregadas sao listadas com seus respectivos mnemdnicos, faciJitando 
assim sua compreensao. Dentro desta logica deverao ser escritas as rotinas 
ASSEMBLY para seu computador. 

Apesar destas diferengas, creio tamb§m que voce encontrara neste livro 
informapoes e incentivos para montar um ou mais dos projetos apresentados, 
ou at£ para criar novas montagens. 
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Todos os projetos neste volume baseiam-se num circuito integrado 
8255 PIO, que e uma interface de 8 bits, projetado para trabalhar acoplado 
em sistemas com o microprocessador 8080 da INTEL. Apesar dos micros 
do tipo TK85 e semelhantes trabalharem com a CPU Z80 r esta interface pode 
ser facilmente comandada por estes microcomputadores. 

Em primeiro lugar, vamos dar uma olhada na arquitetura do 8255: 
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A pinologia pode ser conferida na Fig. 3, 


PA3 
PA2 
PA1 
PAO 
_RD 
CS 
GND 
A1 
AO 
PC7 
PC6 
PC5 
PC4 
“PCO 
PCI 
PC2 
PC3 
PBO 
PB1 
PB2 

Fig. 3 

Pinologia do 8255 

Assim, temos as seguintes fungoes e comandos: 

RD e WR - controlam o vetor de sentido do bus de dados DO at£ D7 

AO e A1 - selegao de uma das tr£$ portas, ou ainda f a selegao do buffer 
(para a programagao) 

CS — habilita a comunicagao entre o microcomputador e o proprio 

8255 

RESET - com nfvel logico "1", todas as entradas do 8255 vao para o 
modo Input, isto i t apresentam alta impedancia. 

VCC — alimentagao unica de +5 Volts 

GND - Terra, negativo 

PAO - 7 - porta A (8 linhas) 

PBO - 7 - porta B (8 linhas) 

PCO - 7 - porta C {8 linhas) 

DO • D7 — bus de dados para o corfiputador 
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SELEgAO DAS PORTAS 


Conforme os nfveis de A0 e A1, temos as seguintes funpoes: 


AO 

A1 

Situapao 

0 

0 

selepao da porta A 

1 

0 

selepao da porta B 

0 

1 

selepao da porta C 

1 

1 

programapao do 8255 


A porta A contem um latch/buffer para a saida de dados, e um latch 
para a entrada de sinais, identico a porta B. Ja, a porta C esta dividida em dois 
grupos de 4 linhas cada, pemnitindo a programapao diferente para cada grupo. 
Por exemplo, as linhas PC0 ate PC3 podem agir como entradas, enquanto as 
linhas PC4 at6 PC7 representam sai'das. 


MODOS DE SELEpAO 

0 8255 apresenta tres modos de operapao: 

Modo 0 = input/output basico 
Modo 1 = input/output com strobe 
Modo 2 = bus direcional com strobe 


A PROGRAMApAO DO 8255 EM SI 

Ap6$ ligar a alimentapao do 8255, e imprescindfvel uma palavra de co- 
mando, sem a qua) este circuito integrado permanece no modo RESET, Esta 
palavra de comando define o modo e o tipo de funcionamento para cada 
porta. Lembre-se que para aceitar a programapao, as linhas A0 e A1 devem 
estar em nfvel "1", 

0 comando $ formado por 8 bits, onde cada bit tem uma funpao muito 
especial: 


D7 

D6 

D5 

D4 

D3 
—,— 

D2 

D1 

DO 


Porta C (PC0 at£ PC3) 
nfvel "V' = INPUT 
nfvel "0” * OUTPUT 


porta B {PB0 at6 PB7) 
nfvel "1" = INPUT 
nfvel "0" = OUTPUT 


Selepao do modo para a 
porta B e o grupo da Porta C 
PCD ate PC3 
nfvel “1" = modo 1 
nfvel "0" = modo0 


Porta C (PC4 ate PC7) 
nfvel "1" = INPUT 
nfvel "0" = OUTPUT 


Porta A (PA0 ate PA7) 
nfvel "1" = INPUT 
nfvel "0" = OUTPUT 


Selepao do modo para a 
porta A e o grupo da porta C 
PC4 at£ PC7 
0 0 = modo 0 

0 1 = modo 1 

1 0 ou 1 1 - modo 2 


nfvel "1" = controle das portas 
nfvel "0" = controle dos bits 


Obs.; O nfvel de D7 diz ao 8255 de que tipo de palavra de programs- 
pao trata-se, pois com um nfvel ", a palavra sera interpretada para controlar 
as portas, enquanto com D7 em nfvel "0”, a palavra represents uma progra¬ 
mapao para setar os bits da porta C. 
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Para setar ou "ressetar" os bits da porta C, temos entao o seguinte crit^rio 
na interpretagao da palavra de comando: 


D7 

D6 

D5 

D4 

D3 

D2 

D1 

D0 


Set/Reset 
rn'vel "0" = reset 
nfvel ”1" = set 


Selegao do bit a ser mudado 
0 0 0 = bit PC0 

0 0 1 = bit PCI 

0 10= bit PC2 

0 11 = bit PC3 

10 0= bit PC4 

10 1 = bit PC5 

110= bitPCG 
111 = bit PC7 


sem efeito 


nfvel "0" para programagao dos 
bits da porta C 


3. Modo 2 = bus direcional com strobe: 

- usado para estabelecer uma comunicagao entre o computador e um 
perif^rico atrav^s de at£ 8 bits em sentido bi*direcional. Neste caso, 
os 8 bits serao representados pela porta A, enquanto a porta C for- 
nece sinais de controle (5 bits). 

Para todos os projetos apresentados, usaremos unicamente o modo 0, 
deixando um estudo detalhado dos demais modos para literaturas t^cnicas 
especfficas. 

No circuito basico, apresentado no prbximo'capftulo, usaremos o cir- 
cuito integrado 8255A, onde o fndex "A" representa a velocidade maxima 
de operagao (4,0 MHz), enquanto o tipo normal 8255 sem fndex trabalha 
somente ate 2,0 MHz, podendo assim apresentar operagoes irregulares traba- 
Ihando com microcomputadores com uma frequencia de clock elevado (3,25 
MHz no caso do TK85). 


OS MODOS DE OPERAQAO EM DETALHE 

1. Modo 0 = Input/Output basico: 

- com este modo pode-se operar com as portas A, B, C usando-as 
como simples entradas ou safdas, tendo assim: 

- duas portas de 8 bits (A e B) 

— duas portas de 4 bits (C + C) 

As safdas tern um latch, isto 6, o sinal de safda permanece ate que 
sejam novamente chaveadas. 

2. Modo 1 = Input/Output com strobe: 

— neste modo, 6 feita uma transference de/ou para uma porta espe- 
cffica, em conjunto com os sinais de strobe e handshaking, onde as 
portas A e B atuam como as entradas e/ou safdas, enquanto a por¬ 
ta C gera ou verifies os sinais de strobe e handshaking. 
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CIRCUITO 8RSIC0 


Para facilitar a utilizapSo de diversos projetos, economicamente vanta- 
josos, montaremos um circuito bSsico, a partir do qual, com um mi'nimo de 
componentes adlclonais, podem ser montados todos os projetos indicados 
neste livro. 

0 corapSo deste circuito bSsico e o 8255A, que 6 uma interface de en- 
trada e saida programme!. Temos aindaum multiplexador 74LS138, servinr'o 
como controlador do 8255A, liberando o circuito somente em determinado. 
enderepos. Mais 8 LED's para monitorar sinais e alguns resistores - o sufi- 
ciente para criar os mais ousados projetos. 



Foto 1 


0 esquema pode ser visto na Fig. 4, e a montagem em si pode ser feita 
numa placa de dupla face. 
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As Figs. 5 + 6 mostram, como deve ser preparada cada face da placa 
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CIRCUITO BASICO 
VISTO POR CIMA 


Fig. 6 


CIRCUITO BASICO 
VISTO POR BAIXO 
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Relapao de material necessario para o circuito b$sico, 

1 circuito integrado 8255A 

1 circuito integrado 74LS138 

8 LED's FLV 110 

8 resistores 470 Ohms 1/8 Watt 

24 resistores 1 Kilo-Ohm 1/8 Watt 

1 plug para o seu micro (expansao) 

1 placa de dupla face conf. Fig. 5 + 6 

5m cabinho 

solda 


AMONTAGEM EM SI: 

Antes de tudo, prepare o circuito impresso de dupla face de acordo 
com as Fig. 5 + 6. A seguir, solde os componentes, observando que alguns 
pinos dos circuitos integrados e alguns resistores devem ser soidados em am- 
bas as partes do circuito impresso. A posipao dos componentes $ indicada 
na Fig, 7, e depois da montagem confira com cuidado todo o trabalho feito. 

Tendo a placa montada, corte o cabinho em pedapos de no maximo 
25 cm de comprimento e solde-os nos pontos indicados na Fig. 8. 

Nem todos os projetos apresentados requerem uma memoria superior 
a 2 kBytes (memoria interna do seu micro). Assim sendo, voce poderS co¬ 
nectar o circuito bSsico diretamente a expansao do seu micro, Se quiser con- 
tinuar com a sua expansao de memoria (v^iido para os micros ZX81, TK82, 
TK83 e NE-Z8000), entao poderd montar um "prolongador de expansao" 
conforme mostra a Fig. 8. 

Mesmo para os micros que ja vem com uma memoria interna de 16 
kBytes ou mais, como 6 o caso do TK85 e CP200, este prolongador pode ser 
util. Talvez voce tenha uma impressora que queira ligar junto com o circuito 
basico. 

A ligagao do plug depende do micro que voc§ tern. Existem atualmente 
tres tipos de iigapSes: 

Tipol - ZX81, TK82, TK83, NE-Z8000, TK85 

Tipo 2 — CP200 antigo (sem o High-Speed original) 

Tipo 3 — CP200 novo (j3 com o High-Speed de fabrics) 

Para o tipo 1, a ligagao deve ser feita de acordo com a Fig, 9. 
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Quern tern o tipo 2, tera de realizar antes da ligapao do plug uma peque- 
na modificapao dentro do computador. Nao se preocupe, esta modificapao 
nao altera o funclonamento normal do seu micro, apenas leva ao condutor 
de expansao duas linhas ora inexistentes: VCC (+5 Volts) e ROM CS. Na Fig. 
a seguir pode-se observar, que estas linhas "faltantes" devem ser ligadas na face 
inferior do conector. __ 

A I inha ROM CS pode ser produzida usando como base o capftulo 
"TABELAS E DICAS" na parte do enderepamento interno do micro, 

Para os usudrios do micro tipo 3, e os do tipo 2 ja alterados, prevale- 
ce a ligapao do plug conforme a Fig. 10. 

Tendo tudo ligado, chega a hora de fazer o primeiro teste do circuito 
basico. Para isto, conecte o plug a expansao do micro e iigue a alimentapao. 

Se a montagem estiver certa aparecer^, como de costume, o cursor na 
tela. Se isto acontecer no seu caso, passe para o capftulo seguinte. 


0 MICRO NAO FUNCIONA - E AGORA? 

Em primeiro lugar, nSo se apavore. Por mais complicado e por mais 
fragil que o computador parepa, a probabilidade de "queimar" o micro aci- 
dentalmente 6 minima. Normafmente, o defeito pode ser facilmente elimi- 
nado seguindo as verificapoes a seguir: 

1. Desligue imediatamente o microcomputador. 

2. Confira se o plug esta encaixado corretamente no micro, e se os conta- 
tos deste plug estao perfeitamente alinhados com as pistas do conector 
de expansao. 

3. Verifique se os conectores do plug, onde foram soldados os cabinhos, 
nao estao encostados um ao outro. 

4. Seguindo fio por fio, veja se nao foi esquecida uma ligapao ou se ha fios 
trocados. 

5. Confira a posipao dos circuitos integrados, observando o chanfre destes 
componentes, que devem coincidir com a Fig. 7. 
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6. Observe que alguns dos componentes sao soldados em ambas as faces 
do circuito impresso. Verifique se todas as soldas foram efetuadas. 

7. £ possfvel, que durante a confecpao do circuito impresso, o acido nao 
tenha corrofdo perfeitamente, deixando restos de cobre "curto-circui- 
tando" agora as pistas. Neste caso, use uma faca ou uma chave de fenda 
para raspar entre as pistas. 

8. Usando um multfmetro, verifique se existem rupturas nas pistas do cir¬ 
cuito impresso. Estas rupturas podem ser microsc6picas f impercepti- 
veis a olho nu. Um pingo de solda resolve este problema. 

9. Durante a montagem dos componentes pode ter cafdo um respingo de 
solda, provocando agora curto-circuitos. Isto acontece comumente 
entre os pinos dos circuitos integrados. Use um multfmetro para 
tirar eventual dOvidas. 

10. Um outro defeito muito comum £ a rejeipao do teclado pelo micro, 
parcialmente ou totalmente, apesar da existencia do cursor na tela. 
Neste caso, a interligapSo do circuito b^sico 6 comprida demais e deve 
ser encurtada. 

11. Consulte o capftuio "TABELAS E D1CAS" na parte "Enderepamento 
interno do micro". 

12. Somente em tiltimo caso, troque o 74LS138 e o 8255A. 

Seguindo as indicapoes acima, na maioria dos casos, o problema 6 resol- 
vido. Todavia, persistindo o defeito, nSo se esquepa das causas menos comuns, 
tais como soldas frias, defeito do micro etc... 



Para introduzir os codigos de m^quina dos programas, existem varios 
m^todos. Uma oppao e o programa a seguir que introduz os codigos de 
maquina e apresenta uma soma a cada sete bytes digitados, permitindo entao 
conferir e alterar se necessirio. Chamamos este programa de Monitor. 



EK 163S9)-255 _ 

HDD FOR 1 = 1 \ 0 LciN HE! •-« l 
1200 POKE (NRTP+INT (1/3) 
DE flS(X)+C0DE B$ (I + 1J-4-76 
1300 NtXi I 
1350 SLOUI 

14 0 PPINT N* DE BYTES ? 
!e00 INPUT N 


1500 

POKE NRTP, 

N -255 77 INT 

1700 

POKE ( NRTP 

+1J .i J- ! ’• N 

1300 

RflND U5R ( 

NRTP 42) 

1900 

CL 3 


IzllGO 

LE! I = i6 o1 

4 

2300 

LET F = 1651 

3 + N 

2300 

r 0 P M = -L i u 

F 5TEP 7 

2900 

PRINT hT 2 

i,©;- 

3000 

SCROLL 


3100 

Liz \ T =0 


3200 

DIM H$(32^ 


3 3 O 0» 

.uET » ' 0 

5 ) = w l *^Ra h 





r- ; 
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Digite o programa e a seguir comande RUN e NEW LINE para rodd-lo. 

Responda a pergunta "N- de bytes?" com o valor de N, apresentado 
junto a cada rotina assembly. O programa criara entSo uma linha REM que 
armazenara todos os bytes da rotina. 

A seguir, aparecera na tela o enderepo 16514 e voce deverd digitaros 
codigos correspondentes ao endereco apresentado. Ao terminar cada linha, o 
programa fornecerS a soma em decimal dos codigos digitados. Se este vafor 
nao coincidir com o do livro, pressione a tecla N e redigite os codigos dessa 
linha. Caso contrario digite S e aparecera outro enderego. Continue a digitar, 
sempre verificando a soma com o valor no livro. 

Para ilustragao, vai aqui um exemplo: 


R OTINh RSStMBL i I s i = / 

J. w 1 ” li 4“ izl H >i’ u 4-0 d. 3 36 3 0 C 5 3 3 6 


28 



O objetivo deste capftulo £ testar se o circuito basico esta aceitando os 
comandos do micro e se todos os LED's acendem. Mesmo com o computa- 
dor funcionando perfeitamente, ainda ha possibilidades de erros de montagem 
ou de componentes defeituosos. 

DS agora os seguintes comandos diretos e observe o circuito basico: 

POKE 8195,128 
POKE 8192,255 

Todos os LED's devem acender. A luminosidade destes componentes 
e controlada peios resistores de 470 Ohms. Reduzindo este valor para 330 
Ohms, a luminosidade aumenta, mas em compensaqao a vida util dos LED's 
ve-se reduzida. 

Se um ou mais LED's permanecem apagados, entao confira a posipao do 
chanfre destes componentes (Fig. 7), o valor do resistor de 470 Ohms (ama- 
relo — violeta — marrom), e no ultimo caso substitua o LED. 

Uma vez com todos os LED's acesos, chegamos a um ponto crucial, 
para a tristeza de muitos usu^rios. Digite 

POKE 8192,0 

e todos os LED's devem apagar. 

Se no seu circuito bSsico todos os LED's apfcgam, entao passe para o 
capftulo seguinte. 
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EPROM 


8255A 



CE 


20 


EPROM 

2716 


vcc 


1 


Aberto: 8255A 
Fechado: EPROM 


_— 

ROM CS original 
(= pino 20 do soquete) 


ESQUEMA 


OS LED'S NAO APAGARAM 

Normalmente, isto nao pode ser considerado como um defeito do cir¬ 
cuito basico, mas sim um probiema de enderepamento dentro do seu 
microcomputador. Geralmente, isto acontece nos micros TK85, CP200 e 
nas outras marcas, onde foram inciufdas as funpoesdo High-Speed posterior- 
mente. 

Nestes casos, os enderegos de 8192 at6 8195 sao ocupados pelo "eco" 
da EPROM, que contSm o High-Speed, e pelo conector de expansao nao £ 
possfvel eliminar este eco. Mas com uma pequena incrementagao podemos 
tamb^m sanar este probiema. 

Se o seu micro for um TK85, entao ha a alternativa de retirar a EPROM 
do High-Speed do seu soquete, cada vez que quiser trabalhar com o circuito 
basico. Esta EPROM 6 um circuito integrado de 24 pinos, localizado £ esquer- 
da de um circuito integrado (ou dois) iguai. Este procedimento £ delicado, 
pois o perigo de entortar as pernas desta EPROM durante a coiocapao e a 
retirada deste componente do micro 6 muito grande, al6m de eliminar a pos- 
sibilidade de usar o circuito basico e o High-Speed ao mesmo tempo. 

Voce pode entao optar pela seguinte montagem, vSlida para todos os 
microcomputadores com este tipo de probiema. 

Devemos ligar uma chave no computador, que deve ser acionada toda 
vez que se usa o circuito bSsico. 

Podemos ver na figura acima, que o pino n? 20 da EPROM do High- 
Speed foi isolado do circuito do micro, e a chave, ligada entre este pino e a 
posigao anterior do mesmo. 

Agora, cada vez, que se quiser usar o High-Speed, a posigao da chave & 
“EPROM” enquanto que durante o uso do circuito bSsico, a posigao da 
chave <§ "8255A". Esta selegao pode ser feita mesmo com o microcomputador 
ligado. 


Fig. 11 
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Vimos no capftulo anterior, que um simples POKE pode comandar os 
LED's do circuito b^sico. Vale a pena estudar este capftulo, pois um maior 
conhecimento ira ajudS-to a criar novos projetos. 

OPOKE 

Cada comando POKE exige dois numeros separados por uma vfrgula. 
0 primeiro numero representa o enderepo da memoria, <que varia no nosso 
caso entre 8192 e 8195. 0 numero depois da vfrgula e o valor que deve ser 
colocado nestes enderepos. Este dado esta limitado entre 0 e 255, pois o com* 
putador $6 pode manipular 8 bits por posipao de memoria. Mas, afinal o que 
e um bit? 


O BIT 

Um bit representa a base matematica fundamental do microcomputa- 
dor, e indica sempre um dos dois estados possfveis: 

bit 0 - negativo, sem sinal 
bit 1 = positivo, com sinal 

Sendo assim, com apenas 1 bit podemos repr,esentar dois numeros, o 0 
e o 1. Para uma terceira combinapao 6 necessirio mais um bit: 



0 0 = valor 0 

0 1 = valor 1 

1 0 = valor 2 

32 


e, completando as combinapoes possfveis: 


1 1 = valor 3 

Como podemos ver, temos quatro combinapSes possfveis com dois 
bits, e continuando com 3 bits temos entao 8 configurapoes diferentes: 



0 0 0 = valor 0 

0 0 1 = valor 1 

0 1 0 = valor 2 

0 1 1 = valor 3 

1 0 0 = valor 4 

1 0 1 = valor 5 

1 1 0 - valor 6 

1 1 1 = valor 7 

Para calcular a quantidade das combinapoes possfveis a partir do nO- 
mero de bits disponfvel, podemos utilizar a seguinte formula: 

n? combinapoes = 2 n< ^ ^‘ ts 

Sabemos que o nosso micro manipula 8 bits por posipao de membria. 
Assim sendo, a quantidade de combinapdes possfveis 6 

2 8 = 256 

Considerando o proprio 0 como uma das combinapoes, chegamos assim 
ao numero 255 como valor iriciximo por enderepo. 

Os oito bits do computador sao numerados de DO ate D7, onde cada 
bit representa um valor especffico de acordo com a sua posipao dentro do 
byte (byte = conjunto de 8 bits}. 


valor do bit: 

128 

64 

32 

16 

8 

4 

2 

i 

numero do bit: 

7 

6 

5 

4 

! 3 

2 

1 

0 


Somando todos os valores acima, chegamos novamente ao valor 255. 
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Desta maneira, se o formato de urn byte 6 0 0 1 1 101 1, pode- 
mos calcular o valor decimal correspondente da seguinte maneira: 


1x1=1 
2x1=2 
4x0= 0 
8x1=8 
16 x 1 = 16 
32 x 1 = 32 
64 x 0 = 0 
128 x 0 =_0 

59 em decimal 

Como pode-se ver, somente serao somados os valores dos bits que estao com 
nfvel 1. Os demais serao ignorados. 

TambSm podemos usar uma formula matematica para chegar ao valor 
decimal, )& que sabemos que os bits 0, 1,3,4 e 5 estao com nfvel 1: 

2 0 + 2 1 + 2 3 + 2 4 + 2 s = 59 

0 circuito bSsico indica com os LED's o estado de cada urn dos 8 bits. 
Quando um bit for em nfvel 1, o respectivo LED acenderi, permanecendo 
apagado quando o bit estiver em nfvel 0. 

Desta maneira, se quisermos acender apenas os LED's 0, 2 e 6, teremos 
que escrever primeiramente a configura<?ao bin^ria correspondente: 

0 1 0 0 0 1 0 1 


Assim, o valor decimal correto sera 69, como pode ser visto na Fig. 12. 



LED 7 LED 6 LEDS LED 4 LED 3 LED 2 LED 1 LED 0 
Fig. 12 01 0 001 01 

Mais informagdes sobre a programagao do circuito bSsico podem ser 
encontradas no final deste livro. 
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LUZES SEOUENCm 


A partir de agora, todos os projetos apresentados sao feitos para um 
funcionamento na modalidade SLOW do microcomputador. Todavia, nada 
impede que usemos as mesmas rotinas com o micro trabalhando em FAST. 
Devemos, porem, ter em mente que todo o funcionamento se processarS 
muito mais rapidamente, requerendo eventuais atrasos adicionais (loops 
FOR/NEXT). 

Vamos entao & nossa primeira rotina: 

K U T i M H H -Z< _L L* i 


40 

50 


Rodando o programa acima, um LED ap6s o outro iri acender e apagar, 
comepando pelo LED 0 at6 o LED 7, repetindo esta sequencia at6 pararmos 
o programa com BREAK. 

A vefocidade nao 6 das maiores, e rodando a mesma rotina em FAST, 
o visual j3 meihora, mas continua bastante lento. 

Podemos substituir o comando POKE por uma pequena rotina em I in- 
guagem de mSquina, como demonstra o programa a seguir: 


KOTINS iRSStMBLv £ N = 11 



POKE 8195 .i£R 
FOR F =0 TO t" 
POKE 3195 , 23 *F 
NtzXT F 
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ROTIMR BA5lC 3 

1 0 “ U R : 1:7 = O i U 

20 POKE 15520 
30 pqNT- ;i5P 1 
40 NEXT F 
50 RUN 


Por enquanto, a velocidade deste programs em comparapao com o pro- 
grama totalmente em BASIC permaneceu inalterada. O objetivo 6 apenas 
mostrar, que podem ser intercaladas rotinas de ASSEMBLY no programs 
BASIC para criar os rriesmos efeitos. Mas, qual 6 a vantagem? 

Bern, escrevendo todo o programa BASIC em linguagem de maquina, 
teremos acesso a velocidades muito superlores £ perceppao dos nossos olhos, 
conseguindo assim qualquer velocidade conforme o desejo de cada um. 

Na prdtica, uma rotina "pura" em linguagem de mdquina seria por 
exemplo esta: 

ROTINR ASSEMBLY 3 N=45 


*16514 IS 0=; 05 0p os 05 00 259 

16521 10 FE Cl 13 FS 09 3E 9*3 

*16526 S3 32 33 20 06 3R 05 425 

16538 3t 01 06 06 05 32 03 324 

*16542 20 CD 64 43 17 Cl R 7 816 

16549 10 r4 Cl 13 EC 3E 33 767 

*IS555 32 03 23 CS 263 


A unica instrupao necessdria para rodar este programa, 6 o comando 
direto RAND USR 16514. 

Ap6s dar o comando acima, a luz sequencial reinicia-se at6 completar 
dez sequ§ncias completas, ap6$ as quais 0 programa retorna ao BASIC. 

Percebemos que a velocidade aumentou consideravelmente, e talvez 
haja atS necessidade de mudar esta velocidade. Para isto, podemos adicionar 
a nossa rotina ASSEMBLY o segCiinte programa BASIC auxiliar: 
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0 valor original de velocidade 6 15, e numeros maiores que 50 provo- 
cam uma demora muito grande at6 que o programa volte ao BASIC. Para 
reduzir ou aumentar a quantidade dos loops completos, basta um POKE 
no enderepo 16553 (valor original = 10), que define a quantidade das se- 
qu§ncia$ completas por vez. A Cmica excepao e 0 valor 0, pois ao contrSrio 
do que poderfamos pensar, ou seja, que nao haveria nenhum loop com um 
POKE 16553,0 serao realizados 256 loops antes de retornar-se ao BASIC. 

Se ^uisermos deixar funcionar o sequencial o tempo todo, podemos 
utilizar o programa BASIC a seguir: 


0B0EM (ROTINR ASSEMBLY 3) 

10’ RAND USR 16b 14 
23 RUN 


ou, em linguagem de maquina, temos respectivamente: 


ROTXNfi HiS 

SEMBLY 

4 

N 

= 47 



€15514- IS 

05 05 

3F 

C5 

36 

03 

O cr q 

15521 10 

FE Cl 

IS 

FS 

C3 

3 ti 

993 

€15525 50 

32 0 3 

23 

05 

0 S 

L 

416 

15535 3 E 

01 06 

36 

rp t 

3i=! 

00 

U 2 4 

€1654-2 H0 

CD 64 

43 

17 

Cl 

H 7 

8 16 

15549 10 

F4 Cl 

10 

EC 

pr 

V 4— 

00 

757 

€165 5 5 32 

00 23 

IS 

E3 



333 
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Digite RAND USR 16514 para iniciar. Obserye, que agora a unica ma- 
neira de parar o programs 6 desligar o microcomputador. 

Substituindo os LED's por rel^s ou tiristores, podemos chavear lampa- 
das de potencia e tensoes maiores, chamando por exemplo k atenpao para a 
sua vitrine, criando efeitos visuais numa discoteca ou outros inCimeros proje- 
tos, limitados apenas pela sua criatividade. 


OUTROS EFEITOS 
COO OS LEO'S 


Ha vSrias maneiras de produzir efeitos de luz com os LED's, que nao se 
restringem apenas a luzes seqiienciais. As sugestoes a seguir sempre trazem 
unrv programa escrito em BASIC e uma rotina correspondents em linguagem 
de mSquina. Vale lembrar, que todas as rotinas ASSEMBLY contSm atrasos, 
calculados para um funcionamento na modalidade SLOW do computador. 
Caso queira trabalhar em FAST (por.exemplo devido a inexistSncia do SLOW 
no seu micro), entao estes atrasos devem ser "re-calibrados". Isto 6 feito com 
um POKE nos enderepos indicados, onde o atraso aumenta proporcionalmen' 
te com o valor do numero n {POKE (endere^o), n). 

0 primeiro programa deixa "correr" um LED da esquerda para 3 di- 
reita e vice-versa. 

ftOTINfl BPSIC 5 


10 POKE 6195,128 
20 FOR F = 0 ! 0 7 

38 POKE 8192,2**F 
48 NEXT F 

58 FOR F =6 TO I STEP -1 
58 POKE 8192,2**F 
78 NEXT F 
38 GOTO 28 


Ou ainda, em linguaaem de maquina: 


ROTINP 

P3 

SEMELY 

5 

N 

= -,9 



*16514 

IS 

OB 

06 

8 F 

05 

88 

88 

259 

16521 

10 

FE 

F: *1 

18 

F3 

09 

3E 

998 

* 15528 

60 

e! 

83 

28 

06 

8 P 

Cb 

425 

16 535 

3E 

81 

86 

88 

05 

iz! 

00 

324 

£16542 

20 

CD 

3 4 

48 

17 

Cl 

10 

665 

16549 

F5 

86 

06 

05 

IF 

Oi=] 

80 

537 

*16556 

20 

CD 

84 

48 

Cl 

P7 

10 

889 

16563 

F4 

01 

18 

DF 

3E 

00 

32 

7 ftF; 

*16570 

00 

20 ' 

C9 





o 
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Inicie a rotina acima com RAND USR 16514. 

0 enderego do atraso 6 16517, e usando urn programs BASIC auxi- 
liar, semelhante ao capftulo anterior, podemos mudar esta velocidade: 


ROTINA BASIC 


08REH (ROTINA ASSEMBLY 5, 
10 PRINT ‘UELOCIDADE (1-255'= 

20 INPUT V 
30 PRINT U 
4-0 POKE 16517, U 
50 RAND-USR 15514- 
S0 GOTO 10 


Tamb£m aqui temos uma sequ§ncia de dez voltas completas, antes da 
rotina ASSEMBLY rotornar ao BASIC. Como no capftulo das luzes sequen¬ 
ces, esta quantidade pode ser alterada mediante um POKE no enderego 
16533. 

Uma outra maneira 6 um tipo de luz seqiiencial, onde acendem sempre 
dois LED's ao mesmo tempo, com tres LED's apagados entre eles: 


ROTINA BASIC S 


10 POKE 3195,123 
20 POKt 3192,17 
30 GOSUB 110 
4.0 POKE 3192,34- 
SO GOSUB 110 
60 POKE 3192,53 
70 GOSUB 110 
30 POKE 5192,135 
90 GOSUB 110 
100 GOTO 20 
110 FOR F=1 TO 2 
120 NEXT F 
130 RETURN 
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E em linguagem de m^quina: 


ROT IMP 

flSS 

EMSLY 


N 

— 82 



*16514- 

18 

0B 06 

0F 

C5 

88 

00 

259 

15521 

10 

rE Cl 

10 

* 8 

F: 9 

I'Ll 

998 

*1552 

60 

32 03 

20 

05 

0fi 

f" c 

• w 

426 

16505 

35 

11 32 

00 

20 

CD 

4 

496 

*1654.2 

.4 iS 

H- SL" 

3 E 22 

32 

00 

28 

CD 

447 

16549 

O 4* 

40 3E 

44 

32 

00 

2 8 

408 

*16556 

CD 

64 40 

3E 

38 

Fs* 

00 

649 

165 6^ 

20 

CD 54 

*40 

Cl 

10 

DC 

852 

*16570 

3 c 

00 32 

00 

28 

1C9 


34-5 


Nesta rotina, a velocidade 6 tambSm controlada no enderego 16517, > 
a quantidade das voltas completas no enderego 16533. Para iniciar, digite 
RAND USR 16514. 

E, por fim, mais um efeito simples, mas bonito: 


ROTINA BASIC 9 


10 POKE 3195,123 
20 LET A = 0 
30 POKt 8192,A 
4-0 i-OR F=0 TO 7 
SS LET B=A 
50 LtT A=A+2**F 
70 FOR 6=1 TO F 
30 GOSUB 210 
90 POKE 8192,B 
100 GOSUB 210' 

110 POKE 8192,A 
120 NEXT 6 
130 NEXT F 
14.0 FOR F = i TO 18 
150 GOSUB 21S 
150 POKE 3192,255 
170 GOSUB 218 
130 POKE 3192,0 
198 NEXT F 
208 GOTO 28 
218 RETURN 
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HOT INH 

h5 

5EM 54 Y 


N 

= 13 

3 


F 16 b 14 

7 •— 

2fc ae 

Cr 

- l£r 

36 

00 

, =< 

15 S2 1 

■ iT\ 
4. 

=F Cl 

10 


C 9 

00 

Q PF; 

^15525 

J 4 

06 35 

* Lb 

3P 

BF 

40 

4 "7 F 

15 b 3 5 

32 

00 20 

-* r. 

r;4 

40 

3ft 

R 4 ^ 

* 15542 

90 

4 \L 4' 

00 

20 

- i"\ 

L- L-‘ 

3 4 

F. 7 

16549 

X 

H- HI 

21 10 

5F 

y 

“■ ~ 

50 

59S 

± • ] }= fr jr p. 

4 4 

03 2C 

06 

Oft 

- : cr 

2 1 

■! 

165 S3 

-1 

0 0 4 4 

SF 

40 

CD 

9 1 

592 

*15570 

40 

21 03 

01 

4 4 

SF 

40 

; :4b! 

1 ‘n=:77 

CD 

91 40 

21 

07 

03 

22 

431 

*16554 

tr 

40 CD 

31 

40 

21 

0F 


15591 

Cl? 

4 4 r ; 7 

40 

CD 

91 

43 

552 

*16598 

21 

IF OF 

2 4 

0R 

40 

CD 


1560 b 

91 

48 21 

3F 

IF 

^ w 

SF 

§13 

*15512 

40 

CD 91 

40 

2 ii 

7 F 

3 p 

701 

16619 

4! 4 

5F 40 

CD 

g ■]_ 

40 


b o b 

* 16 b 2 6 

FF 

7F 22 

or 

43 

CD 

91 


15 5 3 3 

40 

21 FF 

00 

44 

8F 

43 

“ “i ■— 

*18540 

CD 

91 40 

Cl 

10 

hB 

cs 

9 9 5 


UELOCIDfiDE:16517 
OUfiNTIDRE>E DE LOOPS: 16550 
INXCIO:RflND USR 16514 


USRHDO RS EtITRRDRS 
DO CIRCUITO BRSICO 


0 nosso circuito b£sico nao s6 pode fornecer sinais de sai'da, como por 
exemplo, para o chaveamento dos LED's, como tambSm pode receber sinais 
externos e transmiti-los ao computador. 

Para testar esta modalidade em todas as 24 linhas, escreva o programa 
a seguir: 

ROTIMP BftSIC 10 



Foto 2 
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Com um pedapo de fio, ligado numa extremidade no VCC (+5 Volts), 
encoste nos pontos indicados na tabela abaixo e confira a leitura do micro 


com os valores indicados: 


Entrada "1" (VCC) 

leitura: 

PA 0 

Port A = t 

PA 1 

Port A = 2 

PA 2 

Port A = 4- 

PA 3 

Port A = 8 

PA 4 

Port A = 16 

PA 5 

Port A - 32 

PA 6 

Port A = 64 

PA 7 

Port A = 128 

tudo livre 

Port A = 0 


Devem ser semelhantes as leituras com os Ports B e C. Se porventura 
houver uma sequSncia trocada, houve entao uma troca na denominapao dos 
pontos no seu circuito bSsico. Por outro lado, se uma das entradas nao rea- 
gir, deve ser inspecionado o circuito impresso, as pontas de solda, e em ul¬ 
timo caso ser trocado o 8255A. Todavia, na maioria dos casos, mesmo com 
uma ou mais entradas do 8255A defeituosas, o circuito pode ser usado, 
trabalhando simplesmente com os demais ports ou entradas, 

Uma vez testada tamb<§m esta modalidade do 8255A, dificilmente 
havers problemas nos projetos seguintes, garantindo assim sucesso total 
nas suas montagens. 


TIRO m RLT'O 


Este projeto simples, demonstra como o circuito bSsico pode traba- 
lhar usando entradas e safdas ao mesmo tempo, como por exemplo neste 
famoso joguinho "Tiro ao Alvo". 

Para quern nao conhece as regras do jogo, vao aqui as instrugSes: 

toda vez, quando um determinado LED (ou fampada} acender, deve-se 
apertar imediatamente o botao de disparo, "atirando" desta maneira 
no LED aceso. Se acertar, ganhar^ um ponto. Por outro lado, se atirar 
cedo ou tarde demais, perderS um ponto. 


0 programa a seguir foi escrito para o jogador ter 10 tiros, com uma 
contagem inicial de 5 pontos. Assim sendo, temos como contagem maxima 
15 pontos, e num fracasso total apenas 5 pontos. 

0 primeiro exemplo, escrito em BASIC, serve apenas para demonstrar 
o funcionamento, pois ainda 6 bastante i&c\\ Bcertar o LED 3, que escolhemos 
como o "alvo" do nosso jogo. O botao de disparo deve ser ligado na linha 
PC0. 


ROTINfl BASIC ii 


10 POKE 8195 ; 1*37 

£0 LET T = 0 

30 LET P=5 

40 FOR F = 0 TO 7 

50 POKE 8192,2-**F 

60 IF PEEK 8194 00 THEN GOTO 9 

0 

70 NEXT F 
80 GOTO 40 
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Todos fizeram pelo menos 10 pontos? Ctimo, entao podemos passar 
para urn desafio maior, usando desta vez linguagem de mSquina: 

{ -J T i N h 2 5 S E M S L Y 8 H = 1 2 4 


±16514. 

16521 
x 16528 


*15*42 

16549 



±15512 

16619 


X15625 
185*3 


00 00 05 05 82 08 06 
00 10 pF ci 10 P8 Cl 


=* o * o y 3 <r! 0 >i y tii 3 * 

88 *4 *2 40 32 83 48 

08 8,’ 3E 81 32 80 28 

CD 54 48 F5 32 02 20 

Fl 88 28 85 FI 17 10 

Ft: 18 £3 FI 27 PE 8§ 

20 07 :jh 33 40 3C 32 

S3 40 32 82 40 3C 32 

40 H7- Ft 0R 28 82 
30 82 20 PE 00 28 F9 
05 81 08 08 CD FF 
05 01 18 88 II EE 48 
CD 55 85 32 83 48 06 

10 D / 09 *6 32 29 15 

^‘3 i=!b 28 2 H 3” 

39 34 33 8E 88 



Se achar a velocidade muito alta, poder^ reduzi-la com um POKE no 
endereipo 16518 (valor inicial = 10}. A rotina acima 6 Inlciada com RAND 
USR 16529, e a quantidade de acertos serd Indicada na tela ap6s o 10? tiro. 

0 projeto a seguir, jS em estilo profissional, aumenta a velocidade 
dos LED's a medida que aumenta a contagem do jogador, al£m de indicar 
simultaneamente na tela a quantidade de tiros gastos. 
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A velocidade inicial depende do valor no endere^o 16521 (normal =128 
e o infcio do programa § obtido com RAND USR 16516. 
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CIRCUITO 

BASICO 


Fig. 13 



Atenpao: para evitar cargas do circuito b^sico em dma do aparelho a ser 
testado, convSm de$!igar todos os resistores de 1 k£2 das linhas do 
PIO que serao usadas. 

Este projeto permite medir os m'veis Idgicos TTL e ter um controle 
visual do estado deste nfvel (0 ou 1), indicado pelos LED's existentes no cir- 
cuito basico. 

Digite este pequeno programa: 

K U T _L N H Lj H 1L : 1E! 

10 POKE 3195 ,< 130 
28 LET fi=PEEK 3193 
38 POKE 3192,2 
48 GOi0 28 


Se estiver medindo os sinais idgicos dentro do seu micro, ou at6 na pro¬ 
pria placa do 8255A, entao basta simplesmente encostar um fio no ponto a 
ser testado e observar o LED 0. (Fig. 13). 

Se o LED 0 acender, normalmente, estar£ medindo um nfvel "1", e 
se permanecer apagado, o nfvel medido estard em "0". Rode acontecer, que 
o LED acenda, por£m com uma luminosidade bastante reduzida. Neste caso, 
com certeza estar^ medindo uma sequencia de sinais mistos, mudando cons- 
tantemente o nfvel. 

Tambem 6 possfvel testar os nfveis Idgicos em outros aparelhos. Neste 
caso 6 necess^rio interligar o GND (negativo) do circuito bSsico com o GND 
do outro aparelho, para criar desta maneira uma referenda comum. 
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O mesmo efeito, com uma resposta muito mais r^pida, pode ser obtido 
mediante esta pequena rotina: 





As vezes hS necessidade de testar mais nfveis logicos ao mesmo tempo. 
Neste caso, podem ser usadas as entradas PBO at£ PB7 e mantido tanto o pro- 
grama em BASIC como o de ASSEMBLY acima. 

Se quisermos representar os sinais na tela da TV, teremos que usar pelo 
menos alguma rotina em linguagem de maquina, pois um respectivo programa 
em BASIC demoraria muito-para processar todas as entradas e falsificaria 
portanto as leituras. 


ROTINP 

M b 

M 0 L 11 

N =92 



00 

P ;=: ft ± - =■ 

, ]r , r ,- r . Q 

=■—•1 

15521 


1C IS PR 

3 f 9 3 3 2 

S 3 ± 

^ 1 S 5 2 ! = : 

O 3 


20 32 82 

- 1 ; 

" 16535 

40 

01 06 08 

CD F5 08 

~ ‘T 

* 16542 

Ij j—{ 

32 4 0 Cb 

4 / CD 33 

862 

1 b 5 4 9 

4 0 

3R 32 40 

UB 4F CD 

8 8 3 

“£16556 


40 3R 82 

40 Cb 57 

737 

16563 

CD 

F;:3 40 3p 

82 40 CB 

2 T “ 

£ 16570 

b i~ 

CD 83 40 

3R 82 48 

747 

16577 

V b 

67 CD 83 

48 3h 32 

8 2 4 

±16534 

a rk 

-t- 

CB 6 F CD 

83 48 3R 

; “_ 

16591 

bii 

40 CB 77 

Lr D O b 4- ^ 

916 

*16593 

b H 

•82 48 CB 

7F C3 33 

9 8 3 

16605 

48 
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ROTINfi 

BP 

SIC 13 



Q0REM 

(ROTINfi 

ASSEMBLY 

11 ) 


10 PRINT RT 2..0; "ENTRADRS 11 "PR 
0 M 11 hTE m U PR7 1111 : 

20 PRINT RT 7,7; "f 

30 RRND USR 16525 

40 PRINT RT q Sti 

50 GOTO 30 
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Desta maneira, temos at6 8 entradas disponCveis. Em casos particula- 
res 6 desejavel ter at6 16 entradas, ou mais, para testar por exemplo, um de- 
terminado componente, onde todas as suas entradas e sai'das sao testadas 
simultaneamente. 

O programa a seguir permite usar todas as 24 linhas como entrada, 
criando assim uma ponta logica multipla. 
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IS 
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3R 

82 
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16 54 S 

48 

01 

OF 
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FF 

88 
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CD 
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48 

81 
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rurusroor 

LOGICO OE 
RTE EH CRdRIS 


0SREH (ROTINR RSSEMBL’* l2 


I ii’ PRj.NI HI 

5 ; " 

PONT Pi 

LOG I 

De: 24 CRNRIS:’ 




20 PRINT hT 

% * 1 

10 .,0, 

11 K H 0 

- PR"" 

30 PRINT hT 

a . : ■ 

12,0.; 

"PBO 

- PB? 

40 PRINT PT 

■ * 

14,0; 

8S PC0 

- pc“ 

•EE 1 U R H N L? U w> R 
60 GOTO 50 

1552? 




Atenpao: para evitar cargas do circuito basico em cima do aparelho a ser 
testado, convSm deslfgar todos os resistores de 1 das linhas 
do PfO, que serao usadas. 


O que 6 um analisador logico? Em princfpio, este aparelho 6 uma ponta 
I6gica, de um ou mais canais, que guarda todos os nfveis medidos para uma 
comparapao posterior em fun<?So do tempo percorrido. 

Em nosso caso, vamos efetuar 28 medi<?oes sucessivas e listar todos os 
resultados na tela. Desta maneira,6 possfvel detectar falhasde chaveamento, 
maus contatos e componentes defeituosos. As entradas, como de costume, 
sao as 24 linhas das portas A, B e C. 


:DT I NR 

RS 
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4- 

f- 
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00 
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Eg 
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3R 
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02 
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50 
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00 

00 

RTF 
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00 

20 
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4 to 
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01 
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3R 

W« 

20 
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PP 
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01 

05 
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15577 

09 
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05 

1C 
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4 /0 
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06 

03 

05 

“ cr 

4 R 
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15591 
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4 to 

2 2 
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4* e! 

84 

40 
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POTIMP BASIC IS 


0BREM 


19 

FAST- 

20 

POKE SIS 

SO 

L-LtH K 

40 

DIM AS(8 


HRlNi AT 

ara’"' 

INICIRR" 

60 

‘ PAUSE 4E 

70 

CLS 

60 

RAND Li5R 

99 

POKE 164 

100 

FDR F =38 

110 

FOR N=26 

129 

PRINT a, p 

1 : J0 

NEXT N 

149 

NEXT F 

1S0 

SLOU 

■160 

R H N D U S R 

170 

GOTO 170 


4NA A 



CHR $ f 

6561 



Em muitos circuitos a serem anaftsados, existe geralmente um ''clock", 
que e um trem de pul$o$,que por sua vez e responsavel pelo sincronismo de 
todas as funpoes digitais. Podemos, portanto,, usar este clock para encarrega-fo 
da tomar as leituras nas horas certas, evitando assim leituras iguais. 


ROTINR BASIC IS 

DEUE SEP MANTIDA A ROTINR ASSEM¬ 
BLY E BASIC RNTERIORES> E ADICIO¬ 
NA DR S AS SEQUINTES'LINHRS EASIC: 
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Deste modo, de acordo com a selegao, a cada pulso do clock (Trigger), 
que nao devera ser maior do que 10 MHz, sera realizada uma leitura, e ap6s 
a ultima leitura listados os resultados na tela. 

Ate agora vimos so os numeros 0 e 1 na tela, indicando assim, direta- 
mente, os nfveis logicos. Diminuindo o numero maximo das entradas de 24 
para 12, podemos representar os nfveis logicos graficamente, criando assim 
um visual bastante profisslonal: 


OTINA 

H 

- L “ 

*!_Y 

14 


-•! - j- 
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9 S3 
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By 
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c cr q 
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4H 

34 

40 
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CL 

*4 

40 

C 1 

10 

D6 

C9 

F; Ft F 
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47 

CD 

0E 

41 

LD 

4F 

640 
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r. r> 

0 F 

4 li 

CB 

7 

CD 

0E 

793 

16626 

41 

CB 

6F 

CD 

0E 

41 

C 9 

O 4 d 

16 6 3 3 
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C D 
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41 

CB 

5F 

904 

16640 

CD 
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0* 
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41 

03 
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umoo un rsle 


Ja vimos as possibilidades do circuito basico, ligando apenas alguns fios 
nas entradas e safdas das suas tr@s portas. Chegou a hora de ampliar a capaci- 
dade deste circuito, ligando rel£s, que por sua vez podem chavear e comandar 
qualquer outro aparelho independents. 

A ligapao de um re!6 requer poucos componentes, como se pode ver 
na Fig. 15. 



Fig. 15 
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tista de material 


1 x transistor 2N2222 
1 x resistor 1 kOhm 1/8 Watt 
1 x diodo 1N4001 
1 x re!6 para 6 Volts 
circuito impresso 
cabinho 

A montagem nao £ cntica, e para ampliar a quantidade dos reISs deve 
ser montado o mesmo circuito para cada re!6 adicional. 

Vamos testar o funcionamento do rel6 ligado em PBO. 

ROTINR 5RSIC IS 


10 POKE. 8195,128 

20 PRINT RT 11,0, : ‘TESThNDO 0 P 

ELE : 



Foto 4 


Assim, para ligar um re!4 ligado em PAO, deve ser feito urn "POKE 
8192,1" e para acionar um rel£ na saida PCS, o comando certo sera "POKE 
8194,32". 
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DiSCROOR 
DE TELEFORE 


0 projeto a seguir, \$ usando o recurso do rel£, permitiri discar para 
qualquer telefone com auxflio do computador, Como o processamento do 
funcionamento nao precisa ser muito rapido, podemos usar sem problemas 
apenas rotinas escritas em BASIC. 

0 nosso primeiro programa pede o numero do telefone que deve ser 
digitado. £ permitido usar espa<?os e trapos no numero, pois o programa 
BASIC foi escrito de tal maneira que detecta somente os nCimeros. Antes 
de passar para o programa em si, vamos ver como 6 feita a discagem no tele- 
tone. (Fig. 16). 



ca. 60V 




Unha telefonica com o fone 
fora do gancho 



Durante a discagem, a linha telefonica 
est4 sendo curtocircuitada de acordo 
com o numero discado. 


Fig. 16 


Ligado do plug do telefone 
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Foto 5 


Se o numero discado for 5, entao $er<S “curto-circuitada" cinco vezes 
a linha telef&nica. Com o numero 1 apenas uma vez, e discando 0 hS dez 
curto-circuitos da linha telefonica. 

Durante a dfscagem, o telefone em si dever^ ser isolado do circuito, 
caso contrario, a discagem nao se efetuara. 


R 0 T _L N1H c; h 5 _L C 
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A ligapao dos re16s e dos seus contatlos pode ser vista na Fig. 17. 



GND PA1 VCC 


GND PAO VCC 



PAO 


PA1 VCC GND 













O programs anterior permite discar at6 12 numeros seguidos, atendendo 
assim todas as discagens nacionais e international, Se a linha estiver ocupada, 
pode se discar novamente apertando a tecla "R". Antes por^m de apertar 
esta tecla, deve-se desligar e ligar novamente o telefone para obter uma linha 
livre. 

Podemos ainda acionar ao discador automatico um programs BASIC 
capaz de armazenar at6 300 telefones e nomes diferentes, onde cada nome 
pode ter at6 15 caracteres. Assim, para chamar afguma pessoa ou firma, pode- 
se digitar o numero diretamente, ou ainda entrar com o nome correspondents 
previamente armazenado. 



120 PRINi hi 13,0;”4,..PTU^LIZP 
R 0 RRGUIUG 11 

130 PRINT~RT 15,0; ,! 5, a .GRRURR 0 

ft k u u iy o !; 

14-S PRINT fi-T 19,0; N; ” NMHEPOS 
UMPUTR &D S" 


158 LET 

N$=INK 

-EY$ 



160 IF 

N$ = " 1 ! ‘ 

THEN 

GOT 0 

770 

170 IF 

N $ - 4 ' 2 1 ' 

THEN 

GOTO 

b F “i 

1 c« 0 j. r 

Ni=“3" 

THEN 

GOTO 

240 

190 IF 

N $ = "4-" 

THEN 

GOTO 

360 

200 IF 

*“r --J , -T- 

N$=“5" 

THEN 

GOTO 

220 


210 GOTO'158 
228 SfiUE “ftROUIUO” 

238 GOTO 158 
24-8 CL3 

250 ftRINi fiT 10,0; "DIGITE 0 NUH 
ERO CUE DEUO DISCPR:" 
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238 INPui U$ 

278 PRINT PT 13,8;U$ 

ft ft i NT ft! 1L 7 7 0 ; “ ft’HKp DloUftR 
JjTr TTF * j m *' 


300 

IF •,!§= C 

THEN GOTO 

320 

"Z: i“ 

-l ■t_ s 

GOTO SO 



320 

LET J$=U$+ 



330 

LET 

X TO 15' 


J40 

G06UE 910 



350 

GOTO 60 



:j 6 0 

Pi : = = 



_ 3 7 0 

PRINT PT U 

hlizrndo : 

^ROUIL 

350 

PRINT PT ^ 

0, ! ENTRE 

•TtM n -j 

r, v.< ■— \ 

w»! t 1 

OR P*b« * u H 



390 

INPUT P* 




PRINT ,, - 

- > ’ ! ; P = 


413 

PRINT ft“ 2 

I 5 0 ; “PRjRp 

PET IFIC 

fip n 

IGITE ’ 1 ’ R ! ’ 

!! 


420 

INPUT g$ 



.,i -•)- 

— — } 1 ■ f * 1 : 

m j 1 MM ■ j W H H 

^ _ «. 

H- 

— • ‘ - 1 =P - 

i n C. N b U i U 

._!■ LL? 

440 

let p$=p$+ 

u $ 


4-b*0 

LET 1$ M ,1 

TO 15) = P 5 


460 

rHIN 1 Hi X 

1.0; f; FNTPF 

u >j n u 

NUfiER0 0 0 TELE F 

ONE ! * 


W* s' — 1 

IN r' ! J ‘ H 5 



iL P l7l 

PwJW! . „ 1 ’ - 

- > 1 ’ ; h $ 


490 

INPUT U £ 



b< ^5 

IF U$ = :; R^ 

THEN GOTO 

36,8 

5 10 

i— i K ? “ r' ? t 

ij ^ 



| ™ ™ ^ j 1 ** ** 

— -r- . .” 3 . -"i { r -1 


*-■ 1 — 

1 — i__ ! -L ! _L ; _L 

>1 ! . ) . ! l — 1 — 

rp \ _L f 

Liz.' 




530 

let NssN + 1 



540 

LET RS iN,1 

TO 32)=IE 

(14 TO 

558 

G OT 0 6 0 



578 

PRINT RT 7 

0; ‘ENTRE 

COM 0 N 

UMER 

G" 



*80 

INPUT Pi 



5Q0 

PRINT 



600 

PRINT ftT 2 

X = '\5 i ' H H R H 

R FT IF IC 

HR D 

IGITE :,,! R J i: 



610 

INPUT 1,1 $ 



620 

TF Li 4? s 11 P * ‘ 

THEN GOTO 

568 

530 

FAST 



640 

FOR F=1 TO 

N 


650 

IF URL P $( 

F , 15 TO 32 

j =UftL P 


£ THEN GOTO 720 
660 NEXT F 
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I* , 3 'NUHtRLi UHU 


Jn D U i HL'iU 


'20 PRINT 
]30 SLyU 


.JiS.Hsir 4 ! 0 3 2 


. r — LJ = [' J= 

■ ‘- r ■“ s • -r '« * 


750 GOTO 550 


fOt! rKi!^ 5 r-i i J. j. , , tl fN ! Kl LUH J 

NOME i! 

”90 INPUT p* 

600 print ,7 ,, --> ,, jp$ 

P R 4 N ! HI 41.0 • ' ' F H R H Ru ! XI" i L : 

PR DIGITE *' ■'fi""" 

520 INPUT U$ 

030 IF Lj$ = M R" THEN GOTO 770 
§40 LET P$=P$+U* 

05^ L lz ; H5 = H* $ (I I U 15 i 
6601 FAST 

670 FOR F = I TO N 

680 IF H $ (F - 1 TO IS)=P$(1 T o IF! 
i THEN goto 720 


20tf GOi0 570 
910 GL 5 

220 PRINT AT 11:0; "ESTOU ni:=,f:AN 
DO 0 NUMERO" 

230 FOR F=1 TO 15 

240 IF U$(F) < lf 0 ,! OR U$ > !! Q f: T 
hen GOTO 1040 
9*0 L*T R =CODir U$ iF j -28 
960 It R —0 I .HEN LET A = 10 
=■ ;*■ 0 FOR G = i i u h 
950 POKE 5132,2 
930 PAUSE 5 
1000 POKE 5132,1 
1010 NEXT G 
1020 POKfc 6132:0 
1030 PAUSE 30 
1040 NtXi r 
1050 RETURN 


Para rodar o programa acima pe!a primeira vez, digite RUN. Para gra- 
var na fita use o SAVE conforms o menu do programa. Se por acaso o pro¬ 
grama parar, digite sempre GOTO 60 para reiniciar, caso contrSrio, poder4 
perder todos os dados armazenados. 
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REFLEX0I1ETR0 


Vimos anteriormente, no capitulo "Tiro ao Alvo", que o programa po¬ 
dia testar a reapao do jogador, mas nao dava informagao do tempo real do 
refiexo. Este 6 o objetivo deste projeto, onde ser£ medida a durapao do seu 
reflexo a partir de um estfmulo luminoso ou por um sinal acCistico. 
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ROTINA BASIC 21 

0HREM (ROTINA ASSEMBLY 15* 
10 RAND 
2 0 L ci i * = 0 


30 

FOK r=i TO & 


43 

LET X=INT (ftND+150 

) +8 

53 

FOR G=1 TO X 


R 0i 

NEXT G 


70 

L ET A = USR 16514 


30 

PRINT "TESTE NR. 11 

•Z 1! 

; f; 

n 

30 

'let S=5+ft 



ISO NEXT F 

110 PRINT "SUA MEDIA FOI 
; ’ MILISEGUNDOS . " 
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Foto 6 


O funcionamento £ simples: no programs acima, ap 6 s um tempo de 
espera de dura?ao aleatdria, acender-$e*ao todos os LED's noclrcuito b3$ico. 
0 mais rapidamente que puder, o jogador deve apertar o botao conectado 
na I inha PC0. Sao feitos cinco testes, apos os quais sera calculada a dura- 
9^0 media do seu reflexo, com indlcagSo dos tempos individuals. A rotina 
ASSEMBLY j4 esta calibrada para contar o tempo em milissegundos (o pro- 
grama deve trabalhar em SLOW). 



0 segundo programs, de funcionamento semelhante, usa agora um reie 
ao inves dos LED's. Este rele serS conectado na linha PC0 e o botao na linha 
PB0 (Fig. 18). 

A rotina BASIC para a rotina ASSEMBLY a seguir 6 a mesma como no 
caso dos LED's acima. 
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05 


10 

r E 

10 

P O 

4- 4- 

642 


4D 

3E 

y y 

w 1 d 

02 

2D 

\ . y 

424 


Caso se queira aumentar a quantidade dos testes, obtendo assim uma 
precisao maior do valor m 6 dio do seu reflexo, devem ser alteradas as linhas 
30 e 1 10 respectivamente. 

Exemplo: 

mudar a rotina para 10 testes: 
mudar a linha 30 para 

30 FOR F = 1 TO 10 
e a linha 110 para 

110 PRINT "SUA MEDIA FOI :"„S/10;" MILISSEGUNDOS" 
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Foto 7 

ao VCC ao PA0 ao GND 
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COUTROLRUOO 
0 GRmOOR 


Com um rele conectado ao nosso circuito basico, podemos controlar 
o nosso gravador durante a leitura e a gravapao de programas, dispensando 
assim a necessidade de ligar e desligar o gravador o tempo todo. Com isto ga- 
nharemos mais espapo na fita, pois podemos eliminar ainda aproximadamente 
6 segundos de silencio antes de cada gravapao, 

0 seu gravador deve ter uma entrada "Remoto", que liga e desliga o 
motor dentro do gravador, Este motor agora serS controlado por um rel 6 , 

ligado na safda PAO do circuito basico. 

Para o SAVE, escreva o seguinte programa em linguagem de maquina, 

e substitua o comando SAVE por RAND USR 16514, 


ROTIMR 

RSS 

EMB 

• 

17 f' 

1=38 



*16514- 

16521 

CD 

60 

“• o 

*£ i” 

03 

CD 23 
20 3E 

rs c 

U’s 

01 

2 ^ 

cr 7 p 

*16528 

00 

20 

06 

60 C5 

06 

00 

241 

1653.5 

10 

FE 

Cl 

10 F 8 

CD 

OB 

943 

*1654-2 

03 

■ZtZ 

00 

32 00 

20 

CD 

3 £ d 

15549 

2B 

0 F 

C9 




259 


e, para o LOAD teremos esta rotina: 


ROT IN ft ASSEMBLY 1.8 N=25 


*16514* CD 23 3iz SO 32 03 493 

16521 20 3t 01 32 0Q L-D 

*16528 44 03 3E 03 32 00 20 215 

16535 CD 2B 3F C9 464 


que ser3 iniciada tambSm com RAND USR 16514. 
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Fig. 20 


lente 



a base permanece desligada 





Foto 8 


8RRREIRR DE LUZ 


Nao estamos limitados em ligar apenas retes, LED's e botoes ao nosso 
circuito basico, pois existem outros perifSricos bastante interessantes, abrindo 
novas perspectivas. 

Como exemplo, podemo's montar um sensor sensfvel a iuz, usando o cir¬ 
cuito conforme a Fig. 20. 

MATERIAL NECESSARIO PARA MONTAGEM: 

1 x trimpot 470 kohms 

2 x resistor 1 kohms 1/4 watt 

1 x resistor 4,7 kohms 1/4 watt 

1 x transistor BC 239C ou equivalente 

1 x fototransistor BPX 25 
circuito impresso 
cabinho 

No escuro, o fototransistor apresenta uma resistSncia interna elevada, 
correspondendo a um m'vel logico 1 na sai'da do circuito da Fig. 20. A partir 
de uma certa luminosidade, a resistSncia interna do fototransistor cai para 
alguns ohms, mudando o m'vel logico do circuito de 1 para 0. 

Ligando este sensor a linha PCO, podemos testar este circuito com o 
seguinte programa; 

n!UT -LNH BHb XU £ 2 

10 POKE 8195,137 

£0 IF PEEK 8194-0 THEN GOTO 50 
30 PRINT RT 11,12;"ESCURO" 

40 GOTO £0 

50 PRINT RT 11,12;“HR LUZ" 

50 GOTO 20 
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Agora, escurecendo o fototransistor com o dedo, aparecera na tefa 
a mensagem “ESCURO", e destapando o fototransistor, a mensagem muda 
para "HA LUZ'\ A sensibrlidade do circuito pode ser regulada em ampla e$- 
cala por intermedio do trimpot de 470 kohms. 

Montando o fototransistor dentro de urn tubo de papelao, para evitar 
influencia da luz do ambiente, podemos juntamente com uma fonte de luz 
dirigida para o fototransistor, montar uma eficiente barreira de luz (Fig. 21) f 
controlando por exemplo a entrada principal da nossa casa. 

O sensor estS ligado em PCO, e na linha PAO pode ser ligado um rel6 
para acionar por exemplo um alarme. O programa correspondente £ simples: 

ROTINR BASIC 23 
10 POKE 8195,137 

20 IF PEEK 8194=0 THEN GOTH P0 
30 POKE'8192,1 
40 5 I OP 



Fig. 21 
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COflTRQLRDOR 

be Emm 


O objetivo deste projeto £ de contar eventos, como por exemplo a 
quantidade de pegas numa esteira, pessoas passando por uma porta, etc. 

No exemplo a seguir, qualquer uma das entradas da porta C serve como 
entrada, enquanto a linha PAO esta reservada para chavear um rel6 assim que 
a contagem chega a um valor pr^-definido. 


RO s If 

•jH dHSlt 


•1 ;7i 

POKE 8195,137 


20 

POKE 8192,0 


30 

PRINT “ENTRE COM 0 NUMER 

0 L 

IM IT: 

tz. 


40 

INPUT R 


SO 

LET N =0 ‘ 


bw 


NIC 

iHH" 



70 

IF INKEV $= THEN GOTO 7 

0 

tsu 

■ FR ST 


90 

IF PEEK 8194=0 THEN GOTO 


100 

IF PEEK 8194 0 0 THEN GOT 

0 1 

00 



110 

L tl ! N =N 41 


120 

IF N=fi THEN GOTO 140 


130 

GOTO 90 


140 

CLS 


150 

POKE 8192,1 


160 

PRINT RT 11, 0 ;"C0 NTRGE M 

1*1 hX 

IhH 

RTINOIDfi" 


170 

SLOW 


130 

STOP 



A velocidade de resposta com o programa acima £ de aproximadamente 
4 eventos por segundo e quando ha necessidade de velocidades maiores, nada 
impede que usemos uma rotina equivalente, escrita em linguagem de maquina. 
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Rel6 p/ acionar 
o alarme 
ligado no PC0 



Combinando os recursos dos sensores de luz, chaves e re!6s, podemos 
montar um effciente alarme residencial, que al£m de proteger a sua casa dos 
ladrdes, ainda pode supervlsionar o consume da luz,e com sensores apropria- 
dos, tamb6m o consumo de 6gua e g6s. Paralelamente ainda poder£ incluir 
um aviso de incendio. 

As iinhas PAO at6 PA7 e PBO at6 PB7 representam 16 entradas dos di- 
versos sensores, enquanto que as Iinhas PCO at6 PC7 podem chavear diversos 
re! 6 s. 

A Fig. 22 indica uma sugestao de alarme residencial, onde podemos 
ver as barreiras de iuz, os sensores nas portas e janelas, os sensores de luz para 
controlar a luz acesa nas depend§ncia$, bem como o alarme em si. 

^ evidente, que devemos proteger o funcionamento perfeito do micro- 
computador e do circuito bisico, pois mesmo com uma falta de luz, o funcio¬ 
namento devera ser garantido. Para manter o alarme mesmo nestas condigoes, 
faz-se necessario o emprego de uma bateria de 12 Volts, que continue alimen- 
tando o micro, os sensores e o alarme durante a falta de luz. Retornando a 
luz da rede, a bateria ser6 desligada automaticamente. 

O programa para o exemplo de alarme residencial acima 6 o seguinte: 

ROTINfi .BASIC 25 


Botoes, chaves on reed-switches 

© ® © © © © © 
l T i i i t i 

PAO PA1 PA2 PA3 PA4 PA5 PA6 

Fig. 22 



Sensor <je luz 

Barreira de luz 

© 

© 

© 

1 

PA7 

PB0 

FBI 


10 POKE 3135,14.6 
20 LET P —0 

30 PRINT “FflRfl RCIONRP. 0 RLPRH 

E DIGITE . 

4-0 IF IN KEY 5 ="fi" THEN LET P = i 
50 PRINT RT 11,0 ;"hLRRME 
50 IF fi=0 THEN PRINT “DESLIGRD 
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7u IF fi = i THEN PRINT 'RClONRDO 

M 

■30 i_£T Y =0 

90 Is- PttK 3192 ■ >0 i HtN l£7 Y = 

,10® IF PEEK 3193: >2 THEN i_ET Y = 

"’ll® IF Y = i RND h = X THEN GOTO 13 

i?, 

w 

150 G GT 0 4- G 
1 o* 0 F' u k t b i y 4* i i 
140 :STOP 

Podemos ainda adicionar o discador automatico de telefone, junto com 
um gravador e urna fita preparada, que liga automaticamente para um parente 
ou a poh'cia, assim que alguSm tentar entrar na casa. £ evidente, que neste 
caso devera existir um tempo mmimo de 20 segundos de espera, para que o 
circuito possa ser desativado a tempo pe!o proprietario da casa. 


CQNDICQES NORHftIS 



para o microcomputador 
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Apesar de nao se tratar de um alarme residencial, este projeto tamb^m 
proteje a sua casa de eventuais ladroes, utilizando um efeito psicologico. 

Quando estiver viajando, o perigo da sua casa ser assaltada e muito 
grande, pois poucas pessoas tem um caseiro ou uma outra pessoa, que possa 
cuidar da casa. Assim, durante a noite toda a sua casa permanece com as !u- 
zes apagadas, e durante o dia nao se escuta nenhum rufdo. A conclusao, 
que nao tem ninguem em casa, 6 obvia. 

0 segredo 6 simular dentro de uma casa vazia, as atividades rotinei- 
ras, evitando simulaqoes sem valia, como com uma lampada acesa e o radio 
ligado, dia e noite. 

Com ajuda do nosso circuito bisico podemos ligar e desligar as luzes, 
o r3dio e a TV, em intervalos irregulares, deixando os ladroes na certeza de 
que ha pessoas em casa. 

Desta vez, usaremos apenas a porta A como entrada, e as portas B e C 
para chavear os refes. A entrada e necessaria para controiar a luz externa da 
casa, reconhecendo se 6 dia ou noite. Pois nao ha Jogica de ligar as luzes ao 
meio dia, ou ligar a TV as cinco horas da manha. 

Como sugestao, podemos distribuir o sensor e os re!6s da seguinte ma- 

neira: 

PAO - sensor de luz, instalado numa janela longe de iluminagao derua 

PBO - rele luz da sala 

PB1 — re!6 luz do quarto 

PB2 — re1§ luz da cozinha 

PB3 — rele luz do banheiro 

PB4 — rele luz fora da casa 

PBS — rel£ televisor 

PBS — rel6 rSdio 

PB7 - rele alarme (opcional) 
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PC0f 

ate - lvres P ara outras finalidades, por exemplo os sensores de alar- 
me residencia! 

Tamb&n aqui se faz necessirio o emprego de uma bateria para manter 
o computador funcionando mesmo com falta de luz, 0 alarme nao deverS 
disparar indefinidamente, pois nSo haverS ningu^m para deslig3-lo. Basta 
toci-lo por 30 segundos, que 6 suficiente para espantar eventuais ladroes. 



160 LET; hR=S 
170 LET T£E=0 
180 LPT TFr=(5 


1000 LET SEN = 0 
1010 GOSUB 100 

1029 GOSUB 3000 

1030 Lti h=F'EEK 31S2 
1040 li- ft •; > 0 i HtiN GOTO =0 
1050 GOSUB 4000 

1060 GOSUB 50nPi 

1070 LET TECsTEC+1 

108ti IF Rfl<>0 THEN i_£T RR 

j-t 1 u < >S then let tu 

1100 Ir- Rfi=0 AND TU=0 «ND 

0 i H ir N G 0 S U B 1130 

1118 IF RR =0 RHD TU =8 RND 

4U ! HEN GOSUB 1170 

1120 GOTO 1020 

1130 LET U = RN[>*101 

11R0 IF U>15 THEN RETURN 

ll'UG Lei RR = I NT f R NO *30 4 81 

I160 RETURN 

1170 L ET U=RND * 1 0 1 
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IF u 5 THEN RETURN 

LET TU = I NT * RND$75+15 

BFTMPN 

l.ET SEN Si 

GOSUB 100 

GOSUB 3000 

LL 1 H = K b L b C* lriL 
IF H=0 THEN GOTO 1000 
GOSUB 4000 
G 0 S U B b 0 0 0 
uET TEE=TEE+i 
1b Li* < > 0 ; NbN lET Lb = L5 - I 

IF LCoB THEN LET LC=LC-i 
li- L B < > 0 i MEN Lii LB -Lb - 1 
IF LQo0 THEN LET L0=L0-1 
IF LFofl THEN LET LF=LF-1 
IF TU<>0 THEN LET T<J=TU-1 
4 b KH £ >0 i HEN LbT Rfl=KH-i 
IF LS = G AND TEE<=150 THEN G 

p ”■ ra 

IF"lQ=0 AND TEE<=150 THEN G 
2270 

IF LC=0 AND TEE<=150 THEN G 
2310 ^ 

lb Lb* = G i HEN UUb*UB !=i L« b G 
IF LF = 0 AND TEE<=150 THEN G 
2390 

lb i U =0 HM O RH = 0 HNL? I ll ■■ 'I 
HEN GOSUB 2430 
IF RR = 0 AND T'J=0 AND TEE < =1 
HEN GOSUB 2470 
GOTO 2020 
LET U=RND.*101 
IF U <20 THEN RETURN 
LET LS = INT (RND *50 +1 0 3 
RETURN 

LET U=RND*101 
IF 11*7 THFf-i RETURN 

LET LO = INT CRND*6+2) 

RETURN 

LET U=KND*101 
IF U>7 THEN RETURN 
LbT LC = IN * {RND*10+5) 

RETURN 

LET U=RNDt101 

IF U>15 THEN RETURN 

LET LB = INT (RND*4 + 1) 

£— | [ { p j'.j 

LET”U=RND*101 
IF U>20 THEM RETURN 
LET LFsINT tRND#S0+10 ) 
hLbT UR N 
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3 

C. H- v 

Lt < 

■j = k N D + 101 

2440 

1 !“ 

U>20 THEN RETURN 

24-50 

LET 

TU = INT (RNDt 60-5-3 

24-50 

Kt ! 

ij P Ni 

24-70 

Lt ‘ 

U=PND*101 

24-30 

y cr 

U >5 THEN RETURN 

£4-90 

—L. i 

HH = 1 t‘4 ! Pi N D 7 4 b T I 

2500 

RET 

U nl N 

3000 

-OR 

_K = 1 TO 4270 

3010 

NfcX' 


3 0 £>0 

,RET 

URN 

4-000 

_ET 

OUT -0 


4 O 10 

IF 

LSO 0 THEN 

LET 

OUT 

4020 

IF 

L 0 w 0 THEN 

LET 

OUT 

4030 

I i“ 

LC t > 0 THEN 

LET 

OUT 

4040 

I” 

lB <’>0 i HEN 

Liz \ 

OUT 

4050 

5 

IF 

LFoB THEN 

J 

LET 

OUT 

4060 

o 

IF 

TU <> 0 THEN 

LET 

OUT 

M-f : VJ 

4 

j F 

Rfi < :> S THEN 

LET 

OUT 

4030 

POK 

E 8193 ., GUT 



4090 

HI 1 U Pi N 



5000 

P l HI J. 

NT RT 7 ; 0 



5010 

Ll \ 

X=LS 





=OUT+S 


0020 GG&UB & 1 S 0 

5030 LET X=L0 

504-0 GOSUB 51;=;0 

5050 LET X=L0 

5060 GOSUB o13Q 

5070 LET X=LB 

5080 GOSUB 5180 

5090 LET X=LF 

5100 GOSUB 5180 

5118 LET X=TU 

5120 GO Si its 1 i-i 0 

5130 LET X=Rfi 

5140 GOSUB 5180 

5150 PRINT RT 15,5;"CLRR0 " 

0160 IF SEN •; >0 THEN PRINT RT 15- 
5; “ESCUR!"" 

5170 RETURN 

5180 LET U$="X. 

5190 IF X=0 THEN LET U$ = *'. 

# A 

5200 PRINT ThB IS; U$ 

5210 RETURN 

5000 PRINT hT 2 , Q; "CONTROLflNDG £ 
CRSR lf 

01 *3 PRINT * 4 —— --—-—-" 


C>0£0 Phi iN ! HT 5 , S , LUUHL } ‘ Hir i.C- 

I ’ Ll ! ihiL ;i U U 

5030 PRINT hT “,0 wUZ 5 hlh 

OURP TO 
U U 11 N H H 
BRNHEIRQ 
!~ O P H 

5 0 9 0 P RI NT * R RD10 

5100 PRINT RT 15~0) 41 ESTP" 

5110 RETURN 


§040 

PRINT 

" L } -|£ 

6050 

PRINT 

l, LUZ 

O W V? 

It T * ™ 

s f i s » *T 

5S80 

PRINT 

"TU" 



Foto 9 
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5ECRETEIRIFI ELETRONICFi 


Uma outra vantagem do nosso circuito basico 6 o fator econdmico, pois 
podem ser montados aparelhos com resultados Iguais ou at6 superiores a ou- 
tros equipamentos criados para esta unica funpao, custando muitas vezes 
mais do que n6s empregamos. Urn exempfo tfpico 6 uma secretSria eletrdnica, 
que permite a voc6 atender, gravar e transmitir telefonemas; mesmo nao es- 
tando em casa. 

£ urn projeto bdsico, que pode ser ampiiado conforme a sua criativi- 
dade e necessidade. Trataremos o circuito e os programas necessarios para 
atender e gravar telefonemas, sem a sua interference. Em conjunto com o dis- 
cador automatico £ perfeitamente possfvel transmitir o recado recebido ime- 
diatamente para seu escritbrio, ou outro lugar onde estiver. 

A ligaqao dos reISs na linha telefonica pode ser vista na Fig. 24. 

Temos urn sensor adicional, que aciona o programa quando toca o telfc* 
tone, pois em condigSes normais esta presente uma tensao de corrente contf- 
nua na linha telefdnica, e durante a chamada uma tensao alternada, que serS 
indicada pelo nosso sensor. Este sensor esta ligado na porta PBO, e os re!6s 
em PAO e PA1 controlam os dois gravadores, enquanto o rel6 em PA2 con- 
trola a linha telefonica. 



Foto 10 
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Assim sendo, ao tocar o telefone, o rel£ PAO acionara o gravador com 
a mensagem, e o reJ4 PA2 "atende" o telefone. Ap6$ transmitir a mensagem, 
o rel£ PAO destiga, e serS ligado o re!6 PA1, que por sua vez liga o segundo 
gravador para a gravapao do recado. Ap6s alguns segundos, o rel4 PA1 pSra o 
segundo gravador, e o rel£ PA2 "desliga" o telefone, aguardando uma nova 
chamada, 

Para efeito de sincronismo da sua mensagem, e o tempo, durante o qual 
o primeiro gravador (rel£ PAO) permanece ligado, o programa foi dividido 
em duas partes. 

A primeira parte serve para voc£ gravar as mensagens na fita, enquanto 
o computador liga e desliga o gravador em tempos certos. 


R 0 I XN H B H SIC 27 


10 

POKE Si95 

20 

POKE 8192 

30 

P' H U -;•£ 4-0O 

4-0 

POKE 8192 

50 

PAUSE ISO 

50 

PRINT RT 

70 

POKE 8192 

80 

PAUSE 100! 

S0 

P'0 K iz t-iy 

100 

CLS 

110 

GOi0 50 


"PPLt hGORh 1 ' 


Pegue uma fita, de preference virgem, e coloque-a no gravador total- 
mente no infcio. Conecte o plug Remoto (rele ligado em PAO), digite RUN 
e aguarde a instrupao do.micro para gravar suas mensagens. 0 programa auto- 
maticamente faz avanpar a fita durante a gravapao, deixando uma margem de 
sil§ncio na mesma. Vocd deve falar somente quando aparecer a instrupao 
FALE AGORA" na tela do seu TV. Desta maneira, 4 possivel gravar a fita 
inteira, garantindo o sincronismo durante o funcionamento da secretaria ele- 
tr6nica, 


H U T _L N H i-' H ■“ IL cl C 1 


10 

POKE 3l9£,i30 


2 L* 

POKc 3192,3 


30 

PAUSE 4-00 


4-0 

POKE 3132,0 


50 

LET H=0 


■p t |7j 

IF PEEK 3193=0 

THEN j‘U t l z-0 

70 

Lt ! rl -H 11 


30 

IF A=3 THEN GO 

TO 110 

90 

IF PEEK 81930 

0 THEN G0"0 9 

100 

GOTO se 


110 

POKE Si 32,4- 


•1 Oj 

» W V 

PA USE 3 0 


130 

POKE 8192,5 


140 

PhUsc. i u 00 


150 

POKE 3192,6 


170 

GOTO~40'~ 



Para testar o sensor da chamada, pepa a um amigo que Ihe telefone, \i 
com o seguinte programa BASIC rodando no seu micro: 

ROTINFi BASIC 29 


10 POKE 8195?155 

c! 0 LiZ 1 H = 0 

30 PRINT H7 11,3; "NRO -ESTfi TOC 
ANDO w 

4.0 IF PEEK S 19-3=0 THEN GOTO 40 

50 LET R =H +1 

60 IF H=3 THEN GOTO 90 

70 IF PEEK 6193 <>0 THtN GOTO f 

0 

SO GOTO 30 

90 PR IN * hi 11 s S; 


Se achar que o tempo de gravapao de sua mensagem 4 comprido ou cur- 
to demais, poderd alterar o valor da PAUSE na linha 80 do programa ante¬ 
rior, mas deve alterar da mesma maneira a linha 140 da rotina principal a 
seguir: 


Se, ao tocar o telefone, aparecer a mensagem "ESTA TOCANDO", 
entSo o circuito estS funcionando perfeitamente. O micro deve estar em 
SLOW, e a mensagem "ESTA TOCANDO" somente aparecer^ ap6s o segundo 
ou terceiro toque. Desta maneira evitamos um acionamento da secretaria 
eletrdnica a partir de quia tinica interference na linha telefdnica. Resta testar 
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0 $ re 16s antes de entrar em funcionamento a rotina principal. Par a isto, digite 
os seguintes comandos diretos: 

POKE 8192,130 - inicializa o PIO 

POKE 8192,1 — liga o gravador das mensagens (PA0) 

POKE 8192,2 - liga o gravador dos recados (PA1) 

POKE 8192,4 ~ liga o re!6 conectado a linha telefonica (PA2) 

Uma vez testados todos os componentes, coloque qma fita virgem no 
gravador n9 2, conecte o plug do rel6 1 no remoto e aperte as teclas para a 
gravagao. 0 gravador dever6 permanecer parado 

A seguir, coloque no gravador em PAO a sua fita com as mensagens 
totalmente no im'cio e, ap6s conectar o Remote (rel6 0), ligue a tecla para a 
reprodugao. Digitando RUN, os gravadores em PAO e PA1 deverao ligar ime- 
diatamente e desligar ap6$ alguns segundos (para posicionar as fitas). Pronto, 
sua secretaria eletronica est6 pronta para receber e gravar os telefonemas. 
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GRRVRDQR DE EPRDD 


Este projeto talvez seja a montagem mais util para o "hobbista", pois 
permitir6 gravar seus proprios EPROM's do tipo 2716 (de 2 kBytes de memo¬ 
rial e do tipo 2732 (de 4 kBytes de memorial. 

A diferenga de gravagao destes dois EPROM's e o ni'vel logico de pro- 
gramagao, que no tipo 2716 4 ativo com nfvel "0", e no 2732 ativo em 1 
Temos ainda a pinologia com pequenas dlferengas, que podem ser vistas na 
Fig. 26. 



A0 - A10 — endere<?amento at£ 2047 (com A11 at6 4095} 

D0-D7 - linha de dados 

OE -output enable 

CE/pRG - chip enable/programagao 


vcc 

A8 

A9 

All 

OE/VPP 

A10 

CE/PRG 

07 

D6 

D5 

D4 

D3 


Fig. 26 
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Para gravar estas EPROM's, sao necessaries as seguintes condigoes: 

a) o endere?o, onde deve ser gravado o dado, deve estar estabilizado 
(AQatSAIO no 2716, e AO at6 A11 no 2732) 

b) o dado deve estar presente nas linhas DO at<§ D7 

c) uma tensao de 25,0 Volts regulada deve estar conectada ao pino de 
VBB (pino 20 no 2732, e pino 21 no 2716) 

d) o pulso de programapao deve ter uma durapao de exatamente 50 
milissegundos. 

Este pulso de programa^ao nao pode ser muito curto, pois nao garanti- 
ria uma programagao eficiente, enquanto um pulso comprido demais podera 
danificar a EPROM. 

Poderfamos controlar o tempo com o 74LS121, mas qualquer falha de 
componente facilmente alteraria o tempo de 50 milissegundos, colocando 
assim em perigo a EPROM a ser gravada. 

Neste projeto, estamos controlando este tempo por software, que de- 
vido ao clock alto do microcomputador apresenta uma precisao total. 

No que se refere a tensao de 25 Volts, podemos montar o seguinte cir- 
cuito (Fig. 27): 





TR 


Rela^So do material: 

1 Regulador de tensao 7824 
1 Diodo 1N4000 ou similar 
1 Transformador 12+12V/100mA 
1 Eletrol ftico 470flF/63 Volts 
1 Capacitor 0,22/XF de po I tester 
1 Capacitor 0,47flF de poliester 
1 Resistor 4,7k £7l/4Watt 
1 Resistor R x {vide textol 


Fig. 27 
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Como nao existe no mercado nacional um regulador de tensao de 25 
Volts, utilizamos um artifi'cio para extrair esta tensao a partir de um regula¬ 
dor de 24 Volts, facilmente encontrado na prapa. O resistor Rx, ligado ao 
negativo (GND) do regulador, eleva a tensao de safda at£ a tensao desejada. 
No meu projeto, usei um resistor de 120 Ohms. No seu caso, este valor pode- 
ria variar ligeiramente, e o valor correto ter3 que ser encontrado por tentati- 
vas. Aumentando o valor de Rx, a tensao de safda cresce, e naturalmente, 
uma diminuipao deste valor reflete-se numa tensao de safda menor. 

Um programador de EPROM profissional emprega em geral um soquete 
de "zero-for<?a", que apresenta contatos frouxos e uma alavanca, para apertar 
os pinos da EPROM a ser programada. 

Como este soquete apresenta um custo bastante elevado, podemos mon¬ 
tar o nosso programador com um soquete comum de boa qualidade. O unico 
cuidado do operador £ na hora de colocar e retirar a EPROM deste soquete, 
para nao entortar ou at6 quebrar os pinos frSgeis deste circuito integrado. 

A liga<?ao deste soquete com o circuito bisico pode ser vista na Fig. 28, 
e a chave Ch ser3 usada para selecionar entre o tipo 2716 e 2732. Temos 
ainda a chave Chi para ligar e desligar os 25 Volts. 
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Uma vez tudo ligado, faltam-nos ainda os programas correspondentes, 
divididos em linguagem de m^quina e BASIC. O programa 6 auto-explicativo, 
e o tinico perigo em operar com este gravador de EPROM € nunca esquecer 
de deixar os 25 Volts desligados na hora de colocar ou de retirar a EPROM 
no soquete. 
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ROTINR BASIC 33 


0HREM (ROTINR ASSEMBLY 19) 
I© PRINT RT 5.4.,; ‘PROGRAMADOR D 
E EPROM" 

20 RAND' USR 15517 
30 PRINT RT 11.0; ' SELECIONE 0 
TIRO E RCERTE A CHR-UE" 

40 INPUT A 

5j3 IP A<>2716 AND h< >2732 i HtN 
GOTO 40 

60 PRXNl A I 13 > 14 1 A 
7© LET R =£047 
50 LET PR=1S566 
90 LET DEF = 16523 
100 IF A=2716 THEN GOTO 140 
110 LET R=4095 
120 LET PR=16577 
130 LET DEF=15529 
14© RAND USR DEF 
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4-80 

LET K=F-INT (F 

4-90 

PRINT CHR4 INT 



1 'll' 

PR1HT CHR$ INT 

$_lK 

.-IN) K • I sr. j *16 

~ ry 

ir D$= THEN 

530 

PRIN? D$(i TO 

540 

POKE 15515 ; 184 

U DE 

D 5 1 -‘d J - ci c : 
j"- n •= i i =■ ~ c 

560 

RRND U5R PR 

570 

LET F =F 4-1 

580 

LEl_Di= D$13 TO 

590 

w U ! U 4 ■ ‘ 4L 


F 4095; 


L 0 9 Z 


' !"• / 10 ^ C j ; »h,I ir! 


Agora voce poderia, porexemplo, gravar definitivamentesuassub-rotinas 
favoritas, incluindo talvez algumas rotinas apresentadas neste livro. 



-ncc 

UCD 


Espero que este livro tenha colaborado para criar novos projetos com o 
circuito basico, e incentivado os leitores a montar alguns dos circuitos apre- 
sentados. 

Como voce pode reparar, com o circuito basico praticamente nao M 
limites. A seguir ha algumas sugestoes, que talvez se tornem realidade nas suas 
maos: 

1. TELA SENS1VEL AO TOQUE 

Em computadores avanqados, a selegao de um menu e feita tocando 
simplesmente a tela nos pontos indicados com o dedo, dispensando assim 
quase por completo o teclado. Isto nao tem nada a ver com o monitor usado, 
e at6 o seu televisor pode ser usado com estes recursos. 

Na verdade, existe uma matriz invisi've! de barreiras de luz infraverme- 
Iha, onde a interrupqao de quaiquer um dos feixes 6 analisada pelo compu- 
tador, reconhecendo assim a posiqao, onde houve este sinal (Fig. 29), 
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Desta maneira, instalando uma barreira de luz infravermelha porexem- 
plo na altura da linha 20 do computador, com o sensor conectado em AO, po- 
deri'amos por exemplo ter este trecho de um programa BASIC: 



2, TECLADOINTELIGENTE 

Podemos programar v^rias sub-rotinas no computador, que rodam con- 
forme a configura<?ao das entradas do circuito basico. Assim, ligando um te- 
clado auxtllar de ate 24 teclas (Fig, 30) ou de at6 144 teclas (Fig. 31), pode¬ 
mos programar de tal modo, que cada tecla corresponda a uma rotlna inteira. 
Deste modo, seria possi'vel programar uma tecla para fazer um cSIcuio com- 
plicado e extenso, enquanto uma outra tecla grava o programa numa fita. 



VCC PA0 PA1 PA2 PA3 PBO PB1 PB2 PB3 PC0 PCI PC2 PC3 • 


Fig. 30 


94 



Fig 31 PA0 PA1 PA2 PA3 PA4 PA5 PA6 PA7 PC0 PC1 PC2 PC3 5 


3. COMANDO NUMERICO PARA MAQUINAS 

Por que nao usar a capacidade do microcomputador e os recursos do 
circuito basico para comandar maquinas? Com auxflio dos rel£s, podemos 
transformar por exemplo um torno semi-automatico numa maquina total- 
mente computadorizada, capaz de realizar processos de fabricapao sem in¬ 
terference de um operador. £ so adicionar 3 maquina fins de curso, barrei- 
ras de luz e escrever a rotina de trabalho. 

4. PX E PV 

A maioria dos transmissores de PX e de PY usam um circuito integrado 
(PPL), para a selepSo dos canais, onde a chave seletora transmite um codigo 
bin^rio ou BCD para este PPL. Neste caso, a chave seletora pode ser substi- 
tufda por nosso circuito basico, para realizar varreduras automaticas dos ca¬ 
nais e outras aplicapoes conforme seu agrado. 
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5. ACIONAMENTO DE IMPRESSORAS E MAQUINAS DE ESCREVER 

ELETRdNICAS 

Conhecendo os cddigos para cada caractere numa impressora ou m3- 
quina de escrever eletronica, £ possfvel ligar seu micro a estes aparelhos, com 
ajuda de um pequeno programa "tradutor", que transforma os c6digos dos 
caracteres do seu micro para os cddigos do aparelho. £ evidente, que com isto 
se perdera muito em velocidade, mas tenho certeza, que o resultado $uperar£ 
de ionge esta deficiencia. 

6 . EFEITOS SONOROS 

Existem no mercado nacional varies sintetizadores de som, capazes de 
criar os mais inerfveis sons, como por exemplo tiros, explosoes, sirene e tons 
musicais. 

Para a seleqao dos diversos tons, existem em geral diversas entradas 16- 
gicas, que conforme o nfvel de entrada emitem um ou outro som. E, quem 
mais do que o nosso circuito bSsico para selecionar estes sintetizadores com 
simples POKE'S? 

A maioria destes circuitos integrados cont^m um oscilador controiando 
a voltagem (VCO), que conforme o nfvel DC emitem um tom com altura 
diferente. Para criar v^rios nfveis DC com o circuito bSsico, podemos util I- 
zar-nos do circuito da Fig. 32. 



t * + i k * * + t _^ 

A0 A1 A2 A3 A4 A5 A6 A7 Safda A0-A7 


PORTA A 

Desta maneira, conforme o valor presente na Porta A, temos at6 256 
nfyeis DC diferentes, atingindo por exempio no caso do sintetizador de som 
76477 quase tres oitavas. 

7. Novos horizontes abrem-se usando o circuito b^sico para controlar o 
nfvel de Ifquidos, usando-o como frequenefmetro, e em conjunto com um 
conversor AD podemos montar multfmetros, medidores de temperatura, e 
assim por diante. 
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VALORES UTEIS PARA PROGRAMAR O 8255A: 


POKE 8192, 

Porta A 

Porta B 

Porta C 

decimal 

hexadec. 

PA0 at<5 PA7 

PB0 at6 PB7 

PC0-PC3 

PC4-PC 

128 

80 

safda 

safda 

safda 

sa fda 

144 

90 

entrada 

safda 

safda 

safda 

130 

82 

safda 

entrada 

safda 

safda 

146 

92 

entrada 

entrada 

safda 

safda 

129 

81 

safda 

safda 

entrada 

safda 

145 

91 

entrada 

sa fda 

entrada 

safda 

131 

83 

safda 

entrada 

entrada 

safda 

147 

93 

entrada 

entrada 

entrada 

sa fda 

136 

88 

safda 

safda 

safda 

entrada 

152 

98 

entrada 

safda 

safda 

entrada 

138 

8 A 

sa fda 

entrada 

safda 

entrada 

154 

9A 

entrada 

entrada 

safda 

entrada 

137 

89 

safda 

safda 

entrada 

entrada 

153 

99 

entrada 

safda 

entrada 

entrada 

139 

8 B 

safda 

entrada 

entrada ■ 

entrada 

155 

9B 

entrada 

entrada 

entrada 

entrada 


DIC AS: 

’ Se uma porta foi programada para o modo de safda, e quer-se saber o 
valor presente nas suas linhas, podemos obter este valor com uma simples 
leitura: 









Exemplo: programar a porta A para o modo OUTPUT e colocar nas 
linhas PA0*ate PA7 o valor 10 

POKE 8195,131 - programs a porta A 

POKE 8192,10 - acende os LED's 1 e 3 (bit 1 e bit 3) 

PRINTPEEK8192 - confirms o valor 10 

ATENQAO: 

Este teste nao e valido para o enderepo de programapao 8195. Assim, 
quando estiver em duvida, qual foi o ultimo valor de programapao, tera de 
repetir a programapao. 

Uma vez programado, o PIO permanece deste modo ate que a alimenta- 
pao for cortada, ou colocado urn novo valor no enderepo 8195. 

A Tabela a seguir mostra, como podemos manipular os bits da porta C 
individualmente: 



POKE 

8195, 



bit 

1 

bit 0 

Bit da 

dec. / hex. 

dec. / hex. 

porta C 

1 

01 

0 

00 

0 

3 

03 

2 

02 

1 

5 

05 

4 

04 

2 

7 

07 

6 

06 

3 

9 

09 

8 

08 

4 

11 

0B 

10 

0A 

5 

13 

0D 

12 

0C 

6 

15 

0F 

14 

0E 

7 


Enderepos e operapao do 8255A PIO: 

Em princfpio, o PIO pode trabalhar em quase qualquer enderepo, mas 
devemos observar sempre o seguinte: 

1. sempre serao usados 4 enderepos seguidos ocupados pelo PIO 

2. esses enderepos nao devem ser ocupados por outros perifericos 
{memorias RAM, EPROM, ROM etc.) 


3. na configurapao binSria, o primeiro dos quatro enderepos em ques- 
tao, deve ter as linhas A0 e A1 com nivel 0. 

Exemplos para o primeiro enderepo: 

I- A1 

, 1 f~A0 


8192 - 0 

0 

1 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

32768 - 1 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

G 

0 

0 

46962 - 1 

0 

1 

1 

0 

1 

1 

1 

0 

1 

1 

1 

1 

1 

0 

0 


e assim por diante 


4. A grande vantagem de usar o PIO como uma memoria, acessivel com 
os comandos POKE e PEEK, d que podemos usar rotinas escritas 
em BASIC para trabalhar com este circuito integrado. 

Uma outra alternativa seria chavear o 8255A pelos ports disponiveis, 
dispensando assim a necessidade de reservar posipoes de memoria. 

No caso do CP 200, alguns dos 256 ports disponiveis ja sao usados 
para o video, teclado e gravador, e podemos usar alguns dos restan- 
tes para o circuito basico. Tamb£m aqui vale o critSrio do nivel 0 das 
linhas A0 e A1 para o primeiro dos quatro ports necessSrios. 

Temos portanto teoricamente os seguintes ports dispom'veis: 

00, 04, 08, 0C, 10, 14, 18, 1C, 20, 24, 28, 2C, 30 etc. 
Resta eliminar os ports ja usados pelo sistema, ate encontrar 4 ports 
livres. 

Uma das desvantagens 4 o fato de que nao teremos condipoes de 
acessar o 8255A somente com BASIC, e e preciso usar a linguagem 
de maquina atraves dos comandos IN e OUT. 

Para os usuarios dos micros da Sinha TK, esse metodo nao funcio- 
na sem alterapao previa do microcomputador, pois existe um "eco" 
dos ports usados em todos os demais ports. 


ENDEREQAMENTO INTERNO DO MICRO: 

H4 alguns casos particulares, onde a linha ROM CS nao funciona para os 
enderegos 8192 ate 8195. Neste caso, e preciso alteraro sistema de enderega- 
mento dentro do microcomputador. 
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TIRO 1 


o 


Fig. 33 
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Existem dois tipos de solugoes, dependendo da forma como o monitor 
de 8 kBytes do seu micro 4 formado: 

Tipo 1 — neste micro, o monitor 6 formado por duas EPROM's de 4 
kBytes cada 

Tipo 2 - neste outro, o monitor esta contido numa unica ROM de 8 
kBytes 

A alteraqao descrita a seguir nao prejudica de maneira alguma o funcio- 
namento normal do seu micro. Ao contrario, apbs a implantagao desta modi- 
ficagao, sera mais facil incrementar seu micro com outros recursos, como alta 
resol ugao, High-Speed, si ntetiz ad or de som e de voz, etc. . , 

Material necessSrio para micros do tipo 1: 

1 resistor de 1 kohms 1/4 watt 
1 circuito integrado 74LS138 

Material necessdrio para micros do tipo 2: 

1 resistor de 1 kohms 1/4 watt 
1 circuito integrado 74LS138 
1 circuito integrado 74LS00 

A ligagao destes componentes pode ser encontrada na Fig. 33, e deve 
ser realizada por um tdcnico. 

Podemos ver que o chaveamento das ROM's £ feito pelos pinos 20, que 
originalmente estaviam interligados com o computador. £ necessario isolar 
portanto estes pinos do computador e iigar nestes o 74LS138. 

A linha ROM CS inhibe todas as memorias, colocando nesta linha um 
n fve I Ibgico 1. 
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Neste capftulo sao relacionadas todas as rotinas em linguagem de ma- 
quina usadas neste livro, servindo de estudo para eventual modificagoes ou 
transformapoes para o ASSEMBLY do seu computador. 


Pdgina 28 
16514 START 


Pagina 35 
16514 START 


Pagina 36 
16514 START 


(Assembly 1) 

LD HL, {D—FILE) 

2A 0C 40 

; localiza infcio da 

INC HL 

23 

tela 

LD (HL), 80 

36 80 

; imprime CHR$ 80 

RET 

C9 


(Assembly 2) 

* 


LD A, + 128 

3E 80 

; programs a PIO 

LD (8195), A 

32 03 20 


LD A, 0 

3E 00 

leva o valor de A 

LD (8192), A 

32 00 20 

para a porta A 

RET 

C9 


(Assembly 3) 

JR CONT 

18 0B 

; vai para o infcio 

LD B, OF 

06 OF 

; sub rotina pausa 

PUSH BC 

C5 


LD B,0 

06 00 


DJNZ FE 

10 FE 


POP BC 

Cl 


DJNZ F8 

10 F8 


RET 

C9 



102 


103 



CONT 

LD A, + 128 

3E 80 

; programs a PIO 


AND A 

A7 



LD (8195), A 

32 03 20 



DJNZ F4 

10 F4 



LD B, + 10 

06 OA 

; define loop de 10 


POP BC 

Cl 



PUSH BC 

C5 



DJNZ EC 

10 EC 



LD A, 1 

3E 01 

; define o 1° LED 


LD A, 0 

3E 00 

; apaga todos os 


LD B,8 

06 08 

; uma fase 


LD (8192), A 

32 00 20 

LED's 


PUSH BC 

C5 

sequencial 


JR NEXT 

18 E3 



LD (8192), A 

32 00 20 

; acende o LED 






CALL PAUSA 

CO 84 40 


Pagina 39 

(Assembly 5) 




RLA 

17 

; passa p/pr6ximo 

16514 START 

JR CONT 

18 0B 

; vai para o infcio 


POP BC 

Cl 

LED 


LD B,+ 1 5 

06 OF 

; sub rotina de pausa 


AND A 

A7 



PUSH BC 

C5 



DJNZ F4 

10 F4 



LD B, 0 

06 00 



POP BC 

Cl 



DJNZ FE 

10 FE 



DJNZ Et 

10 EC 



POP BC 

Cl 



LD A, 0 

3E 00 

; apaga todos os 


DJNZ F8 

10 F8 



LD (8192), A 

32 00 20 

LED's 


RET 

C9 



RET 

C9 


CONT 

LD A,+ 128 

3E 80 

; programs a PIO 






LD (8195), A 

32 03 20 


Pagina 37 

(Assembly 4) 




LD B,+ 10 

06 0A 

; define o loop de 10 

16514 START 

JR CONT 

18 OB 

; vai para o infcio 


PUSH BC 

C5 



LD B. +15 

06 OF 

; sub rotina de pau* 


LD A, 1 

3E 01 

; define o 1° LED 


PUSH BC 

C5 



LD B, 8 

06 08 

; sequencia de 8 


LD B, 0 

06 00 



PUSH BC 

C5 

LED's 


djnzfe’ 

10 FE 



LD (8192), A 

32 00 20 

; acende o LED 


POP BC 

Cl 



CALL PAUSA 

CD 84 40 



DJNZ F8 

10 F8 



RLA 

17 

; passa para o 


RET 

C9 



POP BC 

Cl 

proximo LED 

CONT 

LD A,+128 

3E 80 

; programs a PIO 


DJNZ F5 

10 F5 



LD (8195), A 

32 03 20 



LD B, 8 

06 08 

; nova sequencia de 

NEXT 

LD B, 0 

06 00 



PUSH BC 

C5 

8 LED's 


PUSH BC 

C5 



RRA 

IF 

; muda de LED 


LD A, 1 

3E 01 



LD (8192), A 

32 00 20 

; acende o LED 


LD B, 8 

06 08 

; define um loop 


CALLPAUSA 

CD 84 40 



PUSH BC 

C5 

completo 


POP BC 

Cl 



LD (8192), A 

32 00 20 

; acende o LED 


AND A 

A7 



CALL PAUSE 

CD 84 40 



DJNZ F4 

10 F4 



RLA 

17 

; passa para o 


POP BC 

Cl 



POP BC 

Cl 

pr6ximo LED 


DJNZ DF 

10 DF 



104 


105 



LD A, 0 
LD (8192), A 
RET 


3E 00 ; apaga todos os 

32 00 20 LED's 
C9 


Pagina 41 (Assembly 6) 

16514 START JR CONT 
LD B, +15 
PUSH BC 
LD B, 0 
DJNZ FE 
POP BC 
DJNZ F8 
RET 

CONT LDA,+ 128 

LD (8195), A 
LD B, + 10 
PUSH BC 
LD A,+ 17 
LD (8192), A 
CALL DELAY 
LD A,+34 
LD (8192), A 
CALL PAUSA 

LDA, + 68 
LD (8192), A 
CALL PAUSA 
LD A,+ 136 
LD (8192), A 
CALL PAUSA 
POP BC 
DJNZ DC 

LD A, 0 
LD (8192), A 
RET 

P3gina 42 (Assembly 7) 

16514 START JR CONT 

LDB, + 15 
PUSH BC 


18 OB ; vai para o infcio 

06 OF ; sub rotina de pausa 

C5 

06 00 
10 FE 
Cl 

10 F8 
C9 

3E 80 ; programa a PIO 

32 03 20 

06 0A ; define loop de 10 
C5 

3E 11 
32 00 20 
CD 84 40 
3E 22 
32 00 20 
CD 84 40 
3E 44 
32 00 20 
CD 84 40 
3E 88 
32 00 20 
CD 84 40 
Cl 

10 DC 

3E 00 ; apaga todos. os 

32 00 20 LED's 
C9 


18 26 ; vai para o im'cio 

06 OF ; sub rotina de pausa 
C5 
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LD B, 0 
DJNZ FE 
POP BC 
DJNZ F8 
RET 
NOP's 
LD B, 5 
PUSH BC 
LD A, (408F) 

LD (8192), A 
CALL PAUSA 

LD A, (4090) 

LD (8192), A 
CALL PAUSA 
POP BC 
DJNZ EA 
RET 

CONT LDA,+ 128 
LD (8195), A 
LD B, +10 
PUSH BC 
LD HL, 1 
LD (408F), HL 
CALLSUBROTINA 
LD HL,0103 
LD (408F), HL 
CALLSUBROTINA 
LD HL,0307 
LD (408F), HL 
CALLSUBROTINA 
LD H L,070F 
LD (408F), HL 
CALLSUBROTINA 
LD HL,0F1F 
LD (408F), HL 
CALL SUBROTINA 
LD HL, 1F3F 
LD (408F), HL 


06 00 

10 FE 

Cl 

10 F8 

C9 

00 00 

0605 

; sub rotina 

C5 

3A 8F 40 

; carrega em A o 

32 00 20 

valor do endereqo 

CD 84 40 

408F e acende os 

3A90 40 

respectivos LED's 
; carrega em A o 

32 00 20 

valor do endereco 

CD 84 40 

4090 e acende os 

Cl 

respectivos LED's 

10 EA 

C9 

3E 80 

; programa a PIO 

32 03 20 

06 0A 

; define 10 loop's 

C5 

21 01 00 

; cofoca no endere^o 

22 8F 40 

408F o valor 1 

CD 91 40 
21 03 01 

; coloca noendereqo 

22 8F 40 

408Fo valor 0103h 

CD 92 40 
21 07 03 

; coloca no enderepo 

22 8F 40 

408F o valor 0307h 

CD 91 40 
21 OF 07 

; coloca no enderego 

22 8F 40 

408F o valor 

CD 91 40 

070Fh 

21 IF OF 

; coloca no enderepo 

22 8F 40 

408F o valor 

CD 91 40 

OFIFh 

21 3F IF 

; coloca no enderego 

22 8F 40 

408F o valor 
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CALLSUBROTINA 

CD 91 40 

1 F3Fh 


LD HL, 3F7F 

21 7F 3F 

; coloca no enderepo 


LD (408F), HL 

22 8F 40 

408F o valor 


CALLSUBROTINA 

CD 91 40 

3F7Fh 


LD HL,7FFF 

21 FF7F 

; coloca no endereco 


LD (408F), HL 

22 8F 40 

408F o valor 


CALLSUBROTINA 

CD 91 40 

7FFFh 


LD HL, OOFF 

21 FF 00 

; coloca no endere(?o 


LD (408F), HL 

22 8F 40 

408F o valor 


CALLSUBROTINA 

CD 91 40 

OOFFh 


POP BC 

Cl 



DJNZ AB 

10 AB 



RET 

C9 


P3gina 46 

(Assembly 8) 



16514 DADOS 

NOP*S 

00 00 



PUSH BC 

C5 

; sub-rotina de pausa 


LD B, + 10 

06 OA 



PUSH BC 

C5 



LD B, 0 

06 00 



DJNZ FE 

10 FE 



POP BC 

Cl 



DJNZ F8 

10 F8 



POP BC 

Cl 



RET 

C9 


1N1 CIO 

LD A, + 137 

3E 89 

; programa a PIO 


LD (8195), A 

32 03 20 



LD A,0 

3E 00 



LD (4082), A 

32 82 40 

; define os dados 


LD A, + 131 

3E 83 



LD (4083), A 

32 83 40 



LD B, 7 

06 07 



LD A ( 1 

3E 01 



LD (8192), A 

32 00 20 

; acende um LED 


CALL PAUSA 

CD 84 40 



PUSH AF 

F5 

; guarda o valor de A 


LD A, (8194) 

3A 02 20 

; le a porta C 


CPO 

FE 00 

; verifica se tudo £ 0 


JR NZ +6 

20 06 




POP AF 

FI 



RLA 

17 

; passa p/o prdximo 


DJNZ EE 

10 EE 

LED 


JR E8 

18 E8 



POP AF 

FI 



AND A 

A7 



CP 8 

FE 08 

; testa, se o LED 4 e 


JR NZ +7 

20 07 

aceso 


LD A, (4083) 

3A 83 40 



INCA 

3C 



LD (4083), A 

32 83 40 



LD A, (4082) 

3A 82 40 



INCA 

3C 



LO (4082), A 

32 82 40 



AND A 

A7 



CP + 10 

FE 0A 



JR Z + 9 

28 09 



LD A, (8194) 

3A 02 20 

; le a porta C 


CPO 

FE 00 



JR NZ F9 

20 F9 



JR C6 

18 C6 



LD BC, 0608 

01 08 0B 

; coloca a posipao do 


CALL AT 

CD F5 08 

PRINT 


LD BC, + 16 

01 10 00 



LD DE, 40 EE 

11 EE 40 



CALL PRINT 

CD 6B 0B 

; imprime a 


LD A, (4083) 

3A 83 40 

mensagem na tela 


ADD + 28 

C6 1C 



RST 10 

D7 

; imprime o numero 


RET 

C9 


MENSAGEM 

36 39 29 IB 29 2A 00 26 28 



2A 37 39 34 38 0E 00 



Pagina 47 

(Assembly 9) 



16514 DADOS 

NOP's 

00 00 



PUSH BC 

C5 

; sub-rotina de pausa 


LD B, + 35 

06 23 



PUSH BC 

C5 



LD B, + 128 

06 80 
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OJNZFE 10 FE 

POP BC Cl 

DJNZ F8 10 F8 

POP BC Cl 

RET C9 

MENSAGEM 00 36 39 29 IB 00 39 2E 

37 34 38 0E 00 36 39 29 
IB 00 26 28 2A 37 39 34 

38 OE 00 


LD A, +35 

3E 23 

; define os dados 

LD (4086), A 

32 86 40 


LD A, + 137 

3E 89 

; programa a PIO 

LD (8195), A 

32 03 20 


LD A, 0 

3E 00 


LD (4082), A 

32 82 40 


LD (4083), A 

32 83 40 


LD A, 1 

3E01 


LD (4091), A 

32 91 40 


LD B, 8 

06 08 


PUSH BC 

C5 


LD BC, 0109 

01 09 01 

; define a posigao do 

CALL AT 

CD F5 08 

PRINT 

LD BC, + 12 

01 OCOO 


LD DE, 4092 

11 92 40 


CALL PRINT 

CD 6B 0B 

; Imprime a 

LD A,(4082) 

3A 82 40 

mensagem 

CP + 10 

FE OA 


JR NZ + 7 

20 07 


LD A, "1" 

3E ID 


RST 10 

D7 

; imprime o numero 

LD A, 0 

3E 00 

1 

NOP's 

00 00 


ADD +28 

C6 1C 


RST 10 

D7 

; imprime o numero 
0 

LD BC, OC09 

01 09 OC 

; define a posigao do 

CALL AT 

CD F5 08 

PRINT 

LD BC, + 14 

01 OE 00 


LD DE, 409E 

11 9E40 
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CALL PRINT 
LD A, (4083) 
CP + 10 
JR NZ +7 
LD A, "1" 
RST 10 
LD A, 0 
NOP's 
ADD + 28 
RST 10 
LD A, (4091) 
LD (8192), A 
RLA 

LD (4091), A 
CALLPAUSA 
LD A, (8194) 
CPO 

JR NZ +5 
POP BC 
DJNZ A8 
JR9F 
POP BC 
LD A, (4091) 
CP + 16 
JR Z +22 
LD A, (4082) 
INCA 

LD (4082), A 
CP + 11 
RETZ 

LD A, (8194) 
CPO 

JR NZ F9 
CALL PAUSA 
JR EO 

LD A, (4083) 
INCA 

LD (4083), A 
LD A, (4086) 


CD 6B OB ; imprime a 
3A 83 40 mensagem 

FE OA 
20 07 
3E ID 

D7 ; Imprime o numero 

3E 00 1 

00 00 
C6 1C 

D7 ; imprime o numero 

3A9140 0 

32 00 20 ; acende os LED's 

17 

32 91 40 
CD 84 40 

3A 02 20 ; le a porta C 

FE 00 
20 05 
Cl 

10 A8 
189F 
Cl 

3A 91 40 
FE 10 
28 16 
3A 82 40 
3C 

32 82 40 
FE 0B 

C8 ; retorna ao BASIC 

3A 02 20 ap6s 10 tiros 
FE 00 
20 F9 
CD 84 40 

18 E0 
3A 83 40 
3C 

32 83 40 
3A 86 40 
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AND A 
SUB 3 

LD (4086), A 
JR D8 

Pagina 50 (Assembly 10) 

16514 START LDA.+ 130 

LD (8195), A 
LD A, (8193) 

LD (8192), A 
JR F8 

Pagina 50 (Assembly 11) 

16514 DADO NOP 

JRZ + 4 
LD A, "1" 
RST10 
RET 

LD A, "0" 

JR FA 
LD A,+ 155 
LD (8195), A 
LD A, (8192) 

LD (4082), A 
LD BC, 0808 
CALL AT 
LD A, (4082) 
BIT 7, A 
CALL ANALISE 
LD A, (4082) 
BIT 6, A 
CALL ANALISE 
LD A, (4082) 
BIT 5, A 
CALL ANALISE 
LD A, (4082) 

BIT 4, A 
CALL ANALISE 
LD A, (4082) 


A7 


D6 03 

; aumenta a 

32 86 40 

velocidade 

18 D8 



3E 82 

32 03 20 

; programa a PIO 

3A 01 20 

; le a porta B 

32 00 20 

; e acende os 

18 F8 

respectivos LED's 


00 

28 04 

; sub rotina, anilise 

3E ID 

bit 0 ou bit 1 

D7 

; imprime 1 na tela 

C9 

3E 1C 

; imprime 0 na tela 

18 FA 

3E 9B 

; programa a PIO 

32 03 20 
3A 00 20 

; le a porta A 

32 82 40 
01 08 08 

; define a posipao do 

CD F5 08 

PRINT 

3A 82 40 

CB 47 

; testa PA7 

CD 83 40 
3A 82 40 

CB 4F 

; testa PA6 

CD 83 40 
3A 82 40 
CB 57 

; testa PA5 

CD 83 40 
3A 82 40 
CB 5F 

; testa PA4 

CD 83 40 
3A 82 40 
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; testa PA3 


BIT 3, A CB 67 

CALL ANALISE CD 83 40 

LD A, (4082) 3A 82 40 

BIT 2, A CB 6F ; testa PA2 

CALL ANALISE CD 83 40 

LD A, (4082) 3A 82 40 

BIT 1, A CB 77 ; testa PA1 

CALL ANALISE CD 83 40 

LD A, (4082) 3A 82 40 

BIT0,A CB7F ; testa PAO 

JP ANALISE C3 83 40 ; testa PAO 


Pagina 51 (Assembly 12) 

16514 DADOS NOP's 

JR Z + 4 
LD A, "1" 

RST 10 
RET 

LD A, "0" 

JR FA 
LD A, + 155 
LD (8195), A 
LD A, (8192) 

LD (4082), A 
LD A, (8193) 

LD (4083), A 
LD A, (8194) 

LD (4084), A 
LD BC, OAOF 
CALL AT 
LD A, (4082) 
CALLSUBROTINA 
LD BC, OCOF 
CALL AT 
LD A, (4083) 
CALLSUBROTINA 
LD BC,OEOF 
CALL AT 


00 00 00 

28 04 ;subrotinade 

3E ID andlise 

D7 ; imprime o numro 1 

C9 

3E 1C ; imprime onumero 

18 FA 0 

3E 9B ; programa a PIO 

32 03 20 

3A 00 20 ; le a porta A 

32 82 40 

3A 01 20 ; le a porta B 

32 83 40 

3A 02 20 ; le a porta C 

32 84 40 

01 OF OA ; define a posifao do 
CDF5 08 PRINT 
3A 82 40 
CD CB 40 

01 OF OC ; define a posigao do 
CDF5 08 PRINT 
3A 83 40 
CD CB 40 

01 OF OE ; define a posipao do 
CDF5 08 PRINT 
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SU^OTINA 


Pagtna 53 
16514 


LO A,(4084) 

3A 84 40 


LD HL, (DATAPOS) 

22 82 40 

; comepa a analisar 

CALL SUB^ROTINA 

CD CB 40 




POSTELA 

RET 

C9 


LD, HL, (VARS) 

2A 10 40 

; rotina de medipao 

PUSH AF 

F5 


LD BC, 5 

01 05 00 


BIT 7, A 

CB 47 

; testa linha 7 

ADD HL, BC 

09 


CALL ANALISE 

CD 85 40 


LD B,+ 28 

06 1C 

; contra 28 medicoes 

POP AF 

FI 


PUSH BC 

C5 


PUSH AF 

F5 


LD A, (8194) 

3A 02 20 

; le a porta C 

BIT 6,A 

CB4F 

; testa linha 6 

AND 80 

E6 80 

; isola PC7 

CALL ANALISE 

CD 85 40 


LO B, A 

47 


POP AF 

FI 


LD A,(8194) 

3A 02 20 

; le novamente a 

PUSHAF 

F5 


AND 80 

E6 80 

porta C e verifica, 

BIT 5, A 

CB 57 

; testa linha 5 

CP B 

B8 

se o ni'vel mudou 

CALL ANALISE 

CD 85 40 


JR Z F8 

28 F8 

; aguarde (opciona!) 

POP AF 

FI 


LD A, (8192) 

3A 00 20 

; le a porta A 

PUSH AF 

F5 


LD (HL), A 

77 

; guarda o resultado 

BIT 4 # A 

CB 5F 

; testa linha 4 

INC HL 

23 


CALL ANALISE 

CD 85 40 


LD A, (8193) 

3A01 20 

; le a porta B 

POP AF 

FI 


LD (HL), A 

77 

; guarda o resultado 

PUSH AF 

F5 


INC HL 

23 


BIT 3,A 

CB 67 

; testa linha 3 

LD A, (8194) 

3A 02 20 

; le a porta C 

CALL ANALISE 

CD 85 40 


LD (HL), A 

77 

; guarda o resultado 

POP AF 

FI 


INC HL 

23 


PUSHAF 

F5 


POP BC 

Cl 


BIT 2, A 

CB 6F 

; testa linha 2 

DJNZ DF 

10 DF 

; repita 28 vezes 

CALL ANALISE 

CD 85 40 


RET 

C9 


POP AF 

FI 


16561 ANALISE LD HL, (VARS) 

2A 10 40 

; flxa DATAPOS 

PUSH AF 

F5 


LD BC, 5 

01 05 00 


BIT 1, A 

CB 77 

; testa linha 1 

ADD HL, BC 

09 


CALL ANALISE 

CD 85 40 


LD (DATAPOS), HL 

22 82 40 


POP AF 

FI 


LO HL, (D FILE) 

2A 0C 40 

; define POSTELA 

BIT 0, A 

CB 7F 

; testa linha 0 

LD BC, 5 

01 05 00 


CALL ANALISE 

CD 85 40 


ADD HL, BC 

09 


RET 

C9 


LD (POSTELA), HL 

22 84 40 





LD 8, + 28 

06 1C 


(.Assembly 130 



PUSH BC 

C5 


VariSvel 

00 00 

; para guardar 

LD B, + 3 

06 03 




DATAPOS 

PUSH BC 

C5 


Variavel 

00 00 

; para guardar 

PUSH HL 

E5 
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as 28 medicpoes 


16614 


16655 


LD A, (HU 
INC HL 

LD (DATAPOS), HL 
POP HL 

CALLPRINT BIT 
POP BC 
DJNZ EF 

LD HL, (POSTELA) 
INCHL 

LD (POSTELA), HL 
POP BC 
DJNZ E2 
RET 

PRINTBIT BITO, A 
CALL 0/1 
BIT 1, A 
CALL 0/1 
BIT 2,A 
CALL 0/1 
BIT 3, A 
CALL 0/1 
BIT 4, A 
CALL 0/1 
BIT 5, A 
CALL 0/1 
BIT 6, A 
CALL 0/1 
BIT 7, A 
CALL 0/1 
RET 

0/1 JR Z + 10 

PUSH AF 
LD A, "1" 

LD (HL), A 
POP AF 
LD BC, +33 
ADD HL, BC 
RET 

PUSH AF 


7E 
23 

22 82 40 
El 

CD E6 40 ; imprime "I" ou "0" 
Cl 

10 EF 
2A 84 40 

23 

22 84 40 
Cl 

10 E2 

C9 ; retorne ao BASIC 

CB 47 ; testa bit 0 

CD OF 41 

CB 4F ; testa bit 1 

CD OF 41 

CB 57 ; testa bit 2 

CD OF 41 

CB 5F ; testa bit 3 

CDOF41 

CB67 ; testa bit 4 

CD OF 41 

CB 6F ; testa bit 5 

CD OF 41 

CB 77 ; testa bit 6 

CD OF 41 

CB 7F ; testa bit 7 

CD OF 41 
C9 

28 OA ; imprime "0"ou 

F5 "1" conforme o bit 

3E ID asertestado 

77 
FI 

01 21 00 
09 
C9 
F5 
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LD A,"0" 
JR F4 


3E 1C 
18F4 


Pagina 55 

(Assembly 14) 



16514 

Variaveis 

DATAPOS 

00 00 




POSTELA 

00 00 


16518 

MEDigAC 

l LD HL, (VARS) 

2A 10 40 

; define DATAPOS 



LD BC, +5 

01 05 00 




ADD HL,BC 

09 




LD (DATAPOS), HL 

22 82 40 




LD B,+ 28 

06 1C 

; sao 28 medi^oes 



PUSH BC 

C5 




LD A, (8193) 

3A 01 20 

; ie a porta B 



AND 08 

E6 08 

; isola PB3 



LD B, A 

47 




LD A, (8193) 

3A 01 20 




AND 08 

E6 08 




CP B " 

B8 

; testa o ''clock" 

16543 


JR Z F8 

28 F8 

(opcional) 



LD A, (8192) 

3A 00 20 

; le a porta A 



LD (HL), A 

77 




INCHL 

23 




LD A, (8193) 

3A 01 20 

; le a porta B 



LD (HL), A 

77 




INCHL 

23 




POP BC 

Cl 




DJNZ E4 

10 E4 

; repete 28 vezes 



RET 

C9 


16559 

ANALISE 

LD HL, (D-FILE) 

2A0C 40 

; define POSTELA 



LD BC, + 5 

01 05 00 




ADD HL, BC 

09 




LD (POSTELA), HL 

22 84 40 




LD B, + 28 

06 1C 

; sao 28 resultados 



PUSH BC 

C5 




PUSH HL 

E5 




LD HL, (DATAPOS) 

2A 82 40 

; pega um resultado 



LD A, (HL) 

7E 




INC HL 

23 




LD (DATAPOS), HL 

22 82 40 
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POP HL 

El 



LD BC, +66 

01 42 00 




CALL BIT 0-3 

CD E4 40 

; imprime bit 0 at6 3 


ADD HL, BC 

09 




CALL BIT 4-7 

CD F9 40 

; imprime bit 4 ate 7 


AND A 

A7 




PUSH HL 

E5 



RET 

C9 




LD HL f (DATAPOS) 

2A 82 40 



PUSH AF 

F5 




LD A, (HU 

7E 



LD A, "0" 

3E 83 

; sfmbolo grafico 



INC HL 

23 



JR F3 

18 F3 

para "0" 



LD (DATAPOS), HL 

22 82 40 








POP HL 

El 


Pagina 65 

(Assembly 15) 





CALL BIT 0-3 

CD E4 40 

; imprime PBO ate 

16514 START 

JR CONT 

18 OE 

; vai para o infcio 



LD HL, (POSTELA) 

2A 84 40 

PB3 


NOP's 

00 00 




INCHL 

23 



LD HL, (4084) 

2A 84 40 




LD (POSTELA), HL 

22 84 40 



INC HL 

23 




POP BC 

Cl 



LD B,+32 

06 20 




DJNZ D8 

10 D8 



DJNZ FE 

10 FE 

; atraso da rotina 



RET 

C9 



LD (4084), HL 

22 84 40 


16612 

BIT 0-3 

BIT 0, A 

CB 47 

; testa bit 0 


RET 

C9 




CALL PRINT 

CD 0E 41 


CONT 

LD HL, 0 

21 00 00 

; define as variaveis 



BIT 1, A 

CB 4F 

; testa bit 1 


LD (4084), HL 

22 84 40 




CALL PRINT 

CD 0E 41 



LD A, + 137 

3E 89 

; programa a PIO 



BIT 2, A 

CB 57 

; testa bit 2 


LD (8195), A 

32 03 20 

- 



CALL PRINT 

CD 0E 41 



LD A, (8194) 

3A 02 20 

; le a porta C 



BIT 3, A 

CB 5F 

; testa bit 3 


CPO 

FE 00 




CALLPRINT 

CD 0B41 



JR NZ F9 

20 F9 




RET 

C9 



LD A, +255 

3E FF 

;acende todos os 

16633 

BIT 4-7 

BIT 4, A 

CB 67 

; testa bit 4 


LD (8192), A 

32 00 20 

LED's 



CALL PRINT 

CD OE 41 



LD A, (8194) 

3A 02 20 

; ie a porta C 



BIT 5, A 

CB 6F 

; testa bit 5 


CPO 

FE 00 




CALLPRINT 

CD OE 41 



JR NZ + 5 

20 05 




BIT 6, A 

CB 77 

; testa bit 6 


CALL ATRASO 

CD 86 40 




CALLPRINT 

CD OE 41 



JR F4 

18 F4 




BIT 7, A 

CB7F 

; testa bit 7 


LD BC, (4084) 

ED 4B 84 40 



CALL PRINT 

CD OE 41 



LD A,0 

3E 00 

; apaga todos os 



RET 

C9 



LD (8192), A 

32 00 20 

LED's 

16654 

PRINT 

JR Z + 11 

28 OB 



RET 

C9 




PUSH AF 

F5 








LD A, "1" 

3E 03 

; sfmbolo grSfico 

Pagina 67 

(Assembly 16) 





LD (HL) f A 

77 

para 'T f 

16514 START 

LD A,+130 

3E 82 

; programa a PIO 



POP AF 

FI 



LD (8195), A 

32 03 20 



118 


119 



LD HL, 0 
LD A, (81931 
CPO 

JR NZ F9 
LD A, 1 
LD (8194), A 
LD A, (8193) 
CPO 

JR NZ OK 
INCHL 
LD B, +32 
DJNZ FE 
JR F2 

OK LD B, H 

LD C, L 

LD A,0 
LD (8194), A 
RET 

Pagina 69 (Assembly 17) 

16514 START CALL FAST 
CALL FAST 
LD A,+128 
LD (8195), A 
LD A, 1 
LD (8192), A 
LD B, 0 
PUSH BC 
LD BC, 0 
DJNZ FE 
POP BC 
DJNZ F8 
CALL SAVE 
LD A,0 
LD (8192), A 
CALL SLOW 
RET 


21 00 00 


3A01 20 
FE 00 

20 F9 

; le a porta B 

3E 01 

32 02 20 

; liga o rele em PCO 

3A 01 20 

FE 00 

20 07 

; le a porta B 

23 

; conta os 

06 20 

10 FE 
18F2 

mil is segundos 

44 

; transfere o 

4D 

resuitado de HL 
para BC 

3E 00 

32 02 20 
C9 

; desliga o rel£ 


CD 23 OF 
CD 23 OF 


3E 80 

32 03 20 

; programs a PIO 

3E 01 

32 00 20 

; liga o rele 

06 00 

; tempo para a fita 

C5 

ganhar a sua 

06 00 

10 FE 

Cl 

10 F8 

velocidade 

CD OB 03 

; grava o programs 

3E 00 

32 00 20 
CD 2B OF 
C9 

; desliga o gravador 


Pagina 69 (Assembly18) 

16514 START CALL FAST 
LD A, +128 
LD (8195), A 
LD A, 1 
LD (8192), A 
CALL LOAD 

LD A, 0 
LD (8192), A 
CALL SLOW 
RET 

Pagina 88 (Assembly 19) 

16514 DADOS NOP's 

LD A,+128 
LD (8195), A 
RET 
LD A, 0 
LD (8194), A 
RET 

LD A, +16 
JR F8 

LD A, (4082) 
LD (8192), A 
LD A, (4084) 
LD (8193), A 
LD A, (4083) 
RET 

LD (8194), A 
LD B, 31 
PUSH BC 
LD 8, FD 
DJNZ FE 
POP BC 
DJNZ F8 
LD A, (4083) 
RET 

CALL 4095 


CD 23 OF 


3E 80 

32 03 20 

; programs a PIO 

3E 01 

32 00 20 

; liga o gravador 

CD 44 03 

; le o programa da 
fita 

3E00 

32 00 20 

CD 2B0F 
C9 

00 00 00 

; desliga o gravador 

3E 80 

32 03 20 
C9 

; programa a PIO 

3E 00 

32 02 20 
C9 

; prepara para 2716 

3E 10 

18F8 

3A 82 40 

; prepara para 2732 

32 00 20 

; define PA0 ate 

3A 84 40 

PA7 

32 01 20 
3A 83 40 
C9 

; define PBO ate PB7 

32 02 20 

; define porta C 

06 31 

C5 

06 FD 

10 FE 

Cl 

10 F8 

3A 83 40 
C9 

CD 95 40 

; tempo de 50 ms 
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LDB, +16 

06 10 

; programapao da 

ADD B 

80 

EPROM 

CALL TEMPO 

CD A5 40 


JR CC 

18 CC 


CALL 4095 

CD 95 40 


CALLTEMPO 

CD A5 40 


LD B, +16 

06 10 


ADDB 

80 


JR F3 

18 F3 



rnNri neon 

CUt ILLUDs tU 


Todos os projetos apresentados neste livro foram montados pelo autor 
e os prototipos funcionaram perfeitamente. Naturalmente, todas as monta- 
gens podem ser aperfeipoados por voce, dependendo da sua habilidade. 

0 que realmente me levou a escrever este livro, 4 a escassez de literatura 
voltada para o "hardware" de microcomputadores, numa linguagem facil e 
compreensfvel. Sao exigidos poucos conhecimentos para montar estes pro- 
jetos, e com ajuda do circuito basico e os modules apresentados como os re- 
les, sensores 'etc., foi criado o primeiro degrau para uma nova ocupapao do 
"hobbista": interessante, educativa e recompensavel. 

Meus agradecimentos as firmas e pessoas abaixo relacionadas, as quais 
me ajudaram muito a reaiizar esta obra: 


— A mjnha esposa Leila e aos meus filhos Michaela e Michael pela pa- 
ciencia demonstrada durante a preparapao desta obra., 

— A Micromega/Sao Paulo pelo apoio e pela orientacao prestada. 

— Ao Sr. Darcio Alves da Silva, pelas fotos publicadas neste livro. 
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URANIA 

USANDO 

LINGUAGEM DE MAQUINA 

APLICAQ6ES EM ASSEMBLY Z80 
MARIO SCHAEFFER 

Uma obra original, realmente didatica, 
para aprendizado e consulta. 

InstrugSes para o uso de linguagem de 
maquina em computadores compatfveis 
com Sinclair (RINGO, ZX-81, TS-1000, 
NEZ 8000, TK-82C, TK-85, TK-83). 

Como usar as sub-rotinas da ROM, 
inclusive para calculos cientfficos. 

Mario Shaeffer mostra com muita in- 
teligencia e didatica, como fazer verda- 
deiros milagres de programagao utilizando 
Linguagem de Maquina, fornecendo mui- 
ti'ssimos exemplos de aplicagao e brindan- 
do o leitor com uma $6rie de programas 
uteis e divertidos. 

DISSECANDO JOGOS 
em BASIC TK comentado linha por linha 
CARLOS EDUARDO ROCHA SALVATO 

Os sete jogos contidos neste volume 
tem uma caracteri'stica unica: o leitor par- 
ticipa do processo decriagao acompanhan- 
do a montagem linha por linha. 

Modificagdes e aperfeigoamentos sao 
propostos e resolvidos com detalhes. Ao 
terminar este livro o leitor atem de ter 
sete jogos geniais, teri adquirido a habili- 
dade de programar com criatividade. 

Uma obra didatica indispensSvel ao 
usu^rio de um micro da linha SINCLAIR: 
Ringo R-470, CP-200, TK-82/83/85, AS- 
1000, SINCLAIR ZX-81 ou TS-1000. 



JOGOS 

EM LINGUAGEM 
DE MAQUINA 
VOL % 


JOGOS EM LINGUAGEM 
DE MAQUINA - VOL I 
Selecionados por PIERLUIGI PIAZZI 

Use suas habilidades, sua inteiigSncia e 
seus reflexos: viva os jogos que vocS mes- 
mo digitou. 

JOGOS EM LINGUAGEM DE MA- 
QU1NA e um livro fascinante, rico em ex- 
plicagoes do qual voc§ extrair^ uma quan- 
tidade enorme de programas. 

A digitagao dos programas nao exige 
conhecimento de linguagem de maquina. 


JOGOS EM LINGUAGEM 
DE MAQUINA-VOL. II 

Selecionados por PIERLUIGI PIAZZI 

Para quern j£ se deliciou com o Volu¬ 
me I desta colegao, mais programas e jo¬ 
gos interessanti'ssimos e fascinantes: 

JOGOS DEAQAO: 

- WARDOZ 

- CICLOTRON 

- PAC MAN 

- CORRIDA DO OURO 

- T0NEL 

JOGOS iNTEUGENTES: Criatividade 
e um magnffico xadrez, com instrugoes 
detalhadas e informagoes curiosas sobre 
este jogo tao antigo e tao atual, 

Todos os jogos em ASSEMBLY Z-80, 
de execugao rdpida. Uma obra de lazer 
e de consulta para usuSrios de micro-com- 
putadores compatfveis com SINCLAIR 
ZX-81: TK-82, RINGO, R-470, CP-200, 
TK-83, AS-1000 e TK-85. 

Pelo prego de uma fita, uma quantida- 
de incrfvel de programas geniais! 








JOGOS EM LINGUAGEM 

de maquina-vol.iii 

Selecionados por PIERLUIGI PIAZZI 

Continuando a $6rie, mais jogos in6di- 
tos: 

- INVASAO 

- LR.A. 

- VERMES DEAREIA(Duna) 

- BASQUETE 

- FROGGIE 
e muitos outros. 

Desenvolva o lado direito de seu cere- 
bro (visao espacial) jogando o fascinante 
DEzDALO. 

A digitapao nSo exige conhecimento 
de Linguagem de Maquina. 

Jogos em ASSEMBLY Z-80 para com- 
putadores compatfveis com SINCLAIR 
ZX-81 (TK-82/83/85, CP-200, TS-1000, 
etc.). 



COLEQAO DE PROGRAMAS 
VOLUME III 

RICARDO DE FAYETTI S1QUEIRA 
Aos iniciantes no uso de um micro- 
computador pessoal, nada melhor, para o 
aprendizado, do que a digitapao de pro- 
gramas e sua posterior an^lise e adapta- 
pao. Esta colepao pretende fornecer sub- 
sfdios para o aprendizado e o lazer do 
usuSrio, apresentando tanto programas de 
jogos, quanto programas didaticos na Srea 
de matematica, da fi'sica e da qufmica. 

0 Volume 111 da COLEQAO DE PRO¬ 
GRAMAS e portanto indicado para estu- 
dantes, adolescentes e iniciantes na fasci¬ 
nante tScnica (e arte) de programar um 
computador pessoal. 


CRIANDO EM 
LINGUAGEM DE 

mAquina 

SAMUEL EfCHEL 



CRIANDO EM 

LINGUAGEM DE MAQUINA 

SAMUEL EJCHEL 

Nao basta se conhecer as instrupcSes do 
ASSEMBLY para se criar um programa 
interessante: existem truques e "dicas" in 
dispensaveis para o bom programador. 
Gerenciando a tela 
Utilizando o teclado 
Usando o Joystick 
Gerando movlmentos multiplos 
Criando oppoes 
Implementando "requintes” 

Em cada capi'tulo um jogo original, to* 
talmente explicado, ilustrando os truques 
de programapao utilizados. 

Uma obra indispen$3veis para quern 
programa em micros da linha SINCLAIR: 
CP-200 - RINGO - TK-82/83/85 - AS- 
1000. 



TABELA DE MNEMONICOS Z80 
Tabeia de cartolina plastificada para 
consulta rapida das instrupoes do Z80, 
seus codigos hexadecimais e abreviapoes 
mnemonicas. Indispens^vel para quern 
programa em linguagem de maquina. 

Para computadores da linha SIN¬ 
CLAIR ZX81 (TK-82/83/85, CP-200, 
Ringo, AS-1000) e TRS80 (CP-300/500, 
JR SYSDATA, D-8000/8001/8002, 
DGT-100/101). 







BASIC TK-VOL. II 

PIERLUIGI PIAZZI/FLAVIO ROSSINI 

A continuasao de um dos maiores su- 
cessos editorials em informatica. 

Aprofundamento do BASIC com e$- 
trutura de programa<pSo, 

Truques utiiizando o sistema operacio- 
nal dos micros da linha SINCLAIR (ZX- 
81, TK-82/83/85, CP-200, RINGO). 

Uma obra elaborada com os mesmos 
cuidados diddticos do Volume I. 


Querendo adquirir um destes livros escreva para: 


ALEPH 

publicaqOes e assessoria pedagOgica ltda. 

Av. Brig. Faria Lima, 1451 - conj. 31 
01451 - S5o Paulo-SP-Tel.: (011) 813-4555 


impresso na 

planimpress grafica e editors 
rua anhaia, 247 - s.p. 
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BASIC TK- VOL. II 

PIERLUIGI PIAZZI/FLAVIO ROSSINI 

A continuaqao de um dos maiores su- 
cessos editorials em informatica. 

Aprofundamento do BASIC com es- 
trutura de programapSo. 

Truques utilizando o sistema operacio- 
nal dos micros da 1 inha SINCLAIR (ZX- 
81, TK-82/83/85, CP-200, RINGO). 

Uma obra elaborada com os mesmos 
cuidados diddticos do Volume I. 


Querendo adquirir um destes livros escreva para: 
ALEPH 

PUBLICAQOES E ASSESSORIA PEDAG6GICA LTDA. 
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